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-mñ * ' ordenador nos permite básicamente tratar con 
i rapidez un gran volumen de información. El 
modo más económico de "salvar" los datos es el 
de escribirlos en disco, tanto si se trata de un dis- 
/]> m co flexible (disquete o floppy disk) como de un 

disco rígido (hard disk) Habida cuenta de su es- 
m tructura, el disco nos proporciona la posibilidad 

M&aB Bjy de acceder a los datos de forma directa (o alea- 
¡w : tíWm toria) y, por tanto, también secuencial. 

El proceso secuencial significa leer o escribir correlativamen¬ 
te, es decir, al comienzo el primer registro, luego el segundo, el 
tercero, etc., hasta que se acaben los datos. Lamentablemente, en 
el proceso secuencial si queremos tener acceso a un registro in¬ 
termedio tenemos que leer todos los registros que le preceden. 
El proceso directo o aleatorio significa leer o escribir directamen¬ 
te cualquier registro, sin necesidad de procesar los que le prece¬ 
den. Para que un fichero pueda procesarse de forma aleatoria es 
necesario, sin embargo, que todos sus registros tengan la misma 
longitud. 

El acceso aleatorio, o directo, sería ciertamente el más versá¬ 
til si el método de búsqueda fuera el mismo utilizado para cargar 
los datos. Veremos las técnicas que han ido surgiendo para po¬ 
der tener un acceso rápido a los datos de formas diferentes a las 
utilizadas durante su grabación. 

El operador dispone de zonas para localizar las informacio¬ 
nes; son los campos ("field”). Cada campo puede contener sola¬ 
mente cifras, letras del alfabeto o bien cifras y letras del alfabeto, 
signos de puntuación y caracteres especiales. Por supuesto, nor- 
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malmente no es suficiente un solo campo y por ello utilizaremos 
varios. 

A la unión de todos los campos se le ha dado el nombre de 
' Pero no nos basta un solo registro, sino que utilizaremos 
muchos. Su conjunto será referido, cuando comencemos a leer o 
escribir en disco nuestras informaciones, con el extraño nombre 
de "file” (fiche o también archivi ). Estos ficheros pueden ser tan¬ 
to de entrada como de salida, es decir, pueden ser leídos o escri¬ 
tos por el ordenador, pero éste puede procesar un único registro 
a la vez. De ahora en adelante hablaremos de los ficheros de las 
facturas, de los ficheros de los gastos, de los ficheros de las exis¬ 
tencias, etc. 

Lo que sigue es precisamente la filosofía de estos campos, re¬ 
gistros y ficheros, sobre todo de cómo están organizados, subdi¬ 
vididos (técnicamente se dice "estructurados") y de cómo se pue¬ 
den manipular sus componentes: eligiéndolos, reuniéndolos, cam¬ 
biando sus connotaciones, mezclándolos entre sí, etc. Aprendere¬ 
mos a hacerlo, inicialmente, en los lenguajes BASIC y Pascal. No 
se trata realmente de un juego: la valiosa información que pode¬ 
mos así manejar, controlada con eficiencia y oportunidad por los 
ordenadores electrónicos, representa uno de los patrimonios más 
importantes de los individuos, de las empresas y de la sociedad 
entera. Es, pues, conveniente que sepamos lo más posible de esta 
materia. 

El término "Banco de datos" está muy generalizado y por eso 
ha sido empleado como título de este libro; sin embargo, la temá¬ 
tica que trataremos sobrepasa lo que, hablando en sentido estric¬ 
to, es un banco de datos, es decir, la agrupación ordenada de in¬ 
formaciones, para llegar a lo que se puede denominar "base de 
datos", donde ya se permite controlar y manipular dichas informa¬ 
ciones. La confusión existente en esta terminología (vulgarmente 
incluso se identifican ambos términos) nos obliga a realizar esta 
matización antes de comenzar a tratar en profundidad el tema. 








DENTRO DE LOS FICHEROS 


Generalidades 

orno acabamos de comentar, cada fichero está 
constituido por registros (en mayor o menor 
número, según los casos) compuestos todo.: 
ellos por los mismos campos (bloques míni¬ 
mos de información en una base o banco de 
datos). 

Sin embargo, de un fichero a otro el núme¬ 
ro, tipo y características de los campos que for¬ 
man cada uno de los registros puede variar 
enormemente. Veamos algunos ejemplos. 

Imaginemos un fichero que llamaremos FACTURA y que pre¬ 
tende recoger toda la información sobre las facturas emitidas por 
un pequeño comercio. En él cada registro tendrá comQ campos 
de información la fecha de la factura, la mercancía vendida, el com¬ 
prador, el importe, el IVA, el total y la forma de pago. 

Otro fichero, sin embargo, en el que queramos llevar nuestra 
cartera de proveedores podrá tener como campos los siguientes: 
empresa, tipo de material que nos suministra, persona de contac¬ 
to, teléfono y dirección. 

Vemos, pues, que, aunque la filosofía sea la misma, la forma 
de desarrollarla será distinta en cada caso. 

Normalmente los registros no son escritos o leídos del disco 
de forma individual, uno a uno, sino que se reagrupan en bloques, 

lo cual permite optimizar el proceso de entrada/salida de los da¬ 
tos. El bloque se define así, en general, como el conjunto de ca¬ 
racteres de información que es manejado (leído o escrito) por 
cualquier dispositivo de entrada/salida. 

El bloque puede contener uno o más registros, dependiendo 
de las dimensiones del registro y de las dimensiones del bloque. 
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Es de gran utilidad la escritura y la consiguiente lectura en blo¬ 
ques tanto para limitar el número de los accesos necesarios a los 
dispositivos de entrada y de salida como para optimizar el espa¬ 
cio en disco o en cinta. El control del comienzo y final de bloques 
se realiza, de forma automática, por el sistema operativo. Por con¬ 
siguiente, nosotros los usuarios no tenemos que preocuparnos de 
cómo se efectúa la lectura/escritura y nos bastará saber que: 

• durante la grabación, cada vez que ordenamos escribir un 
registro, es el sistema operativo quien estima el momento 
oportuno para grabar el bloque de datos correspondiente; 

• durante la lectura, cada vez que ordenamos leer un regis¬ 
tro, es el sistema operativo quien se encarga de decidir si 
puede leerlo por completo a partir del bloque que está con¬ 
tenido en memoria o debe leerlo en parte de este bloque 
y el resto en otro bloque del disco o cinta; 

• algunos sistemas operativos, para no desperdiciar espacio, 
utilizan todos los bytes de cada bloque y, por ello, un re¬ 
gistro puede estar "a caballo" entre dos bloques; 

• la longitud del bloque varía según el sistema operativo uti¬ 
lizado. Suele ser de 128 bytes o de uno de sus múltiplos 
(256, 512). 

En nuestros programas haremos referencia al fichero por me¬ 
dio de un nombre que se denomina "nombre interno" del fichero. 
El soporte externo más empleado y cómodo es el disco (bien sea 
disco flexible, bien disco rígido), por lo que, en lo sucesivo, en lu¬ 
gar de utilizar la expresión soporte externo, emplearemos la ex¬ 
presión "disco". En cada disco se pueden almacenar diferentes fi¬ 
cheros. De aquí la necesidad de distinguir y localizar cada fichero 
individual. 

Cada disco está subdividido en dos partes: una zona está re¬ 
servada al índice, denominado también DIRECTORIO, y la otra está 
reservada a los ficheros. El nombre externo del fichero sirve para 
distinguirlo de los demás ficheros existentes en el disco y es este 
nombre el que está escrito en el directorio. Los ficheros existen¬ 
tes en disco pueden ser leídos por otros ordenadores, a condi¬ 
ción de que utilicen el mismo sistema operativo y el mismo modo 
de grabación. 


Fases de las operaciones con ficheros 

Todas las operaciones con los ficheros, sin importar qué sis¬ 
tema operativo se utilice, se desarrollan en tres fases bien distin¬ 
tas: fase de apertura, fase intermedia y fase de cierre. 

8 



En ta fase de apertura se indica al sistema operativo cuál es 
i i nombre externo del fichero y qué soporte exterior se utiliza; di¬ 
cho de otro modo, se acopla el nombre interno del fichero con su 
nombre externo. A partir de este momento el programa, utilizan- 
c lo el nombre interno del fichero, estará en condiciones de hacer 
comprender al sistema operativo en dónde escribir o leer los da¬ 
los. 

La fase de cierre es muy importante para un fichero en escri- 

¿Recuerda que se tiende a reagrupar varios registros en cada 
bloque? Según se van juntando y completando bloques se van 
grabando; al final del programa, es decir, al final de nuestras in¬ 
formaciones, es muy probable que el último bloque no se haya 
completado, con lo cual es necesario indicar al sistema operativo 
que puede considerar terminada la operación y que el último blo¬ 
que debe grabarse tal como está, aunque esté incompleto. Para 
los ficheros en la fase de lectura no siempre es necesario avisar 
que se ha acabado de emplear el fichero. No obstante, es buena 
norma comunicárselo también al sistema operativo; algunos siste¬ 
mas operativos actualizan el directorio solamente en la fase de 
cierre. 

La fase intermedia es aquella en la que se procede a leer o 
escribir los registros. 

Hemos subdivido este primer volumen dedicado a las bases 
de datos en dos partes: en la primera parte, por medio de analo¬ 
gías y dibujos, explicaremos algunos tipos de acceso a los fiche¬ 
ros. En la segunda presentaremos ejemplos completos de progra¬ 
mas, tanto en BASIC MS DOS como en PASCAL UCSD. 

En nuestra exposición trataremos los tipos de acceso siguien¬ 
tes: 

t 

• secuencia!, 

• con índice, 

• tipo "hash", 

• aleatorio, 

• de árbol binario. 

• base de datos 

Para no hacer demasiado árida la exposición, no hablaremos 
de algunas técnicas sofisticadas de programación, habida cuenta 
de que nos interesa, sobre todo, hacer comprender la filosofía de 
los diversos tipos de acceso. 
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ALGUNOS METODOS DE ACCESO A LOS DATOS 



El acceso secuencial 

uestros ejemplos prevén la utilización de so¬ 
lamente seis registros, cuyos "jefes de fami¬ 
lia" respectivos se denominan: rojos, verdes, 
azules, grises, naranjas y violetas. En nuestras 
ilustraciones, un tren simulará el fichero y 
cada vagón corresponderá a un registro. La 
locomotora es la unidad que se encarga de 
maniobrar los vagones. Los vagones contie- 
. nen la información, o sea, los campos. Tiene 

poca importancia saber cuáles son las informaciones contenidas 
a excepción de las relativas al primer campo, que es el "padre". 
En nuestro ejemplo nos interesa que los vagones (los, registros) 
puedan ser tratados en orden alfabético según el padre, aunque 
las informaciones, como veremos, se nos darán desordenadas. 

Se habla de acceso secuencial cuando para acceder al con¬ 
tenido de un registro cualquiera (para leerlo o escribirlo) debe¬ 
mos recorrer antes, necesariamente, los que le preceden, cuyo 
contenido en ese momento no nos importa y al que, además, tam¬ 
poco tendríamos acceso en ese instante. 

En la figura 1 hemos dibujado una locomotora, con la cámara 
de presión a punto, dispuesta para enganchar vagones y arras¬ 
trarlos hacia el túnel que se ve a la derecha. Las vías permiten 
transportar nuestras informaciones y la locomotora nos permite re¬ 
coger los vagones y arrastrarlos hacia el túnel. En la figura se 
muestra con la referencia a) la situación después de la apertura 
del fichero. 

Cuando se quiere utilizar un fichero, la primera operación a 
realizar es la de abrirlo por primera vez (crearlo); es decir, la que 


11 









12 


■ OI responde a solicitar una locomotora que se encargará de tras¬ 
ladar nuestros vagones. Lo que realmente Hacemos es indicar al 
.•.¡¡Mioma operativo qué unidad ("drive") queremos emplear, qué 
nombre queremos dar a nuestro fichero y cuál va a ser su estruc- 

También en los transportes ferroviarios los trenes son referi¬ 
dos mediante una sigla. 

Veamos unos ejemplos de apertura de ficheros. 


En BASIC MS DOS: 

500 OPEN 1 AS OUTPUT, “FACTURAS” 

510 F1ELD 1,32 AS C$,10 AS I$20 AS D$6 AS F$ 


En PASCAL UCSD: 

VAR TREN1: FICHERO DE REGISTRO 

CLIENTE : STRING[32] ; 

IMPORTE : INTEGER[10]; 

DIRECCION : STRING[20] ; 

FECHA : STRING[6] ; 

END; 

BEGIN 

REWRITE (TREN1, '#5:FACTURAS'); 

En ambos casos hemos abierto el fichero FACTURAS espe¬ 
cificando el tamaño y nombre de los cuatro campos de cada 
registro. 

En la figura 1 se muestra con la referencia b) lo que sucede 
con nuestro vagón "verde" después de que lo hayamos cargado 
con todas las informaciones: simplemente se enganchaba la loco¬ 
motora. Esta última se desplaza hacia la derecha el espacio sufi¬ 
ciente para poder enganchar otros vagones. 

Veamos ahora cómo podemos escribir en un registro: 


En BASIC MS DOS: 

950 LSET C$ =CL$ 

960 LSET 1$ = MKI$(IMPORTE) 
970 LSET D$ =LOCALIDAD$ 
980 LSET F$ =FECHA$ 

990 PUT 1 


En PASCAL UCSD: 

PUT (TREN1); 
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Continuaremos así cargando informaciones en los otros va¬ 
gones y enganchándoles al tren hasta que hayamos completado 
nuestro fichero. En la figura 1 c) se muestra la situación después 
de enganchar el vagón "rojo", que es el segundo registro. Hay que 
destacar el hecho de que cada vagón se ha numerado de forma 
progresiva a partir del cero. Una vez terminadas las operaciones 
de escritura (carga) y después de haber enganchado el último va¬ 
gón, se envía una orden particular con la que se avisa al sistema 
operativo de que el fichero está completo. El sistema operativo 
añade entonces al final del fichero unaHnformación particular de¬ 
nominada EOF (End Of File - Final de Fichero). En nuestra analo¬ 
gía hemos añadido un pequeño vagón que lleva la indicación de 
EOF (Fig. 1 d)). 

Ejemplo de cierre de ficheros: 


En BASIC MS DOS 

2010 CLOSE 1 


En PASCAL UCSD: 

CLOSE (TRENl.LOCK); 

En la figura 2 se muestra el posible contenido de un registro. 
Todos los vagones (registros) deben tener la información dispues¬ 
ta siempre del mismo modo, que, en nuestro caso, sería: primero, 
el nombre del cliente, y a continuación, la dirección, la ciudad eí 
teléfono, el prefijo y el tipo. 

Cuando queramos reutilizar nuestro fichero tenemos que 
1 'do de un modo muy similar al utilizado para su creación. En 

nuestra simulación, tenemos que establecer una vía libre en don¬ 
de se pueda colocar el tren. Como nombre tenemos que darle el 
mismo utilizado en la creación. 

La figura 3 muestra la situación del fichero inmediatamente 
después de su apertura. Logramos conocer el contenido del pri¬ 
mer registro solamente, porque el resto está todavía en las "tinie¬ 
blas" del túnel. Si queremos tener las informaciones relativas al re- 
qislio dorado", por ejemplo, tendremos que hacer avanzar nues- 
11 a locomotora hasta que aparezca el vagón correspondiente, pero 
y.i no podremos averiguar de inmediato el contenido de los va¬ 
gones que pasaron delante. 

i 1 'ii :;;eso secuencial tiene muchas limitaciones Una de ellas 
'que para llegar a un determinado registro tenemos que reco- 
i im primero todos los registros anteriores y no nos será posible, 
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además, ver los registros que pasaron con anterioridad; tampoco 
se podrá añadir ningún registro si no es al final del fichero (antes 
del EOF); no hace posible la eliminación de un registro. Para sub¬ 
sanar este inconveniente se acostumbra a introducir en cada re¬ 
gistro un campo particular que se pone a un valor adecuado si el 
registro fue objeto de anulación. Como se puede constatar, el con¬ 
trol de un fichero secuencial es muy sencillo, pero no precisamen¬ 
te flexible, y ello impone bastantes limitaciones. Es precisamente 
buscando solventar esta escasa flexibilidad y la lentitud.que lleva 
pareja por lo que se han estudiado otras clases de accesos. 




' Figura 3—Lectura de 
apertura. 


un fichero secuencial: situación después de 


la 
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El acceso directo (o aleatorio) 

Se habla de un fichero de acceso directo (o aleatorio) cuando 
podemos alcanzar el contenido del registro que nos interesa tan 
sólo indicando su identidad (bien a través de su número o de una 
clave) y sin tener que recorrer previamente ningún otro. 

Para explicar el acceso aleatorio seguiremos utilizando la lo¬ 
comotora y los vagones, pero en lugar de arrancar nuestro tren 
de la oscuridad del túnel con todos los vagones unidos, coloca¬ 
remos cada vagón en una vía muerta diferente. Cada vía se nu¬ 
merará, de forma progresiva, desde cero en adelante. Como en el 
caso del fichero secuencial, se deberá prefijar de antemano una 
locomotora, es decir, se tendrá que abrir el fichero. 

En la figura 4 a) se muestra la situación antes de la colocación 
del primer vagón (el registro “verde"). La locomotora tiene delan¬ 
te de sí diferentes vías muertas. Su “sentido común" le indica que 



i '| | >■ imer vagón debe colocarse en la vía 0, el segundo vagón en 
l,i vía I y así sucesivamente hasta el séptimo vagón, en la vía 6. 

I ii la práctica, las vías se ocuparán una tras otra sin dejar ningún 
i :.pació vacío. 

En la figura 4 b) se ilustra la situación después de escribir el 

II m i¡stro "verde" y unos instantes antes de escribir el registro "rojo". 

III vagón "verde” está ya colocado en la vía 0 y el vagón "rojo”, 
ai rastrado; por la locomotora, está preparado para llegar a la vía 1. 

En la figura 5 se muestra la situación final. La locomotora está 
inactiva y las vías 0 a la 5 contienen cada una un vagón. La última 
vía, la que tiene como referencia el número 6, contiene un indica¬ 
dor con el rótulo EOF (End Of File - Final de Fichero) que, en la 
práctica, señala que no se puede ir más allá. También el cierre 
. k-I fichero se efectúa de la manera vista para los ficheros secuen- 
Asimismo no es posible eliminar directamente registros; se 
acostumbra a utilizar la técnica de insertar un campo que contie- 



b) 


HHy Figura 4—Creación de un fichero de acceso directo (aleatorio). 
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ne un valor particular si el registro se ha anulado. Habrá intuido 
ya que para tener acceso a un vagón determinado basta saber en 
qué vía se encuentra, aunque no siempre sea fácil conocer el nú¬ 
mero de los registros. 

En la figura 6 se muestra la locomotora que ha tomado el va¬ 
gón que se encontraba en la vía 2. No obstante, en principio no 
disponemos de ningún sistema para saber que en la vía 2 se en¬ 
cuentra el vagón ''añil". ¿Qué hace el sistema operativo para de¬ 
terminar la posición de cualquier registro dentro del fichero? ¿Qué 
hará para determinar en qué bloque está contenido y a partir de 
qué posición del mismo bloque comienza? 

Supongamos que nuestro registro tiene una longitud máxima 
de 64 caracteres y que los bloques en el disco tienen una longi¬ 
tud de 256 bytes (de 0 a 255). Se tendrá, pues, que: 

• el primer registro estará escrito en el primer bloque, a par¬ 
tir de la posición 0; 
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gg Figura 6.—/Icceso al registro número 2 de un fichero directo. 

• el segundo registro estará escrito en el primer bloque, a 
partir de la posición 64; 

• el tercer registro estará escrito en el primer bloque, a par¬ 
tir de la posición 128; t 

• el cuarto registro estará escrito en el primer bloque, a par¬ 
tir de la posición 192; 

• el quinto registro estará escrito en el segundo bloque, a par¬ 
tir de la posición 0; 

• el sexto registro estará escrito en el segundo bloque, a par¬ 
tir de la posición 64. 

Y así sucesivamente. 

Si queremos tener acceso a un registro concreto (por ejem¬ 
plo, el número 100), haremos la siguiente operación: 

(n Q registro-1)*64 

Por ejemplo: 

(100 — 1) * 64=6336 
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Es decir, el registro número 100 (partiendo del 1, no del 0) par¬ 
te del byte número 6336. Para determinar en qué bloque se en¬ 
cuentra un byte (el 6336) se procederá así: 

Parte entera de (n Q byte/256) +1. 

INT(6336/256)+ 1=25 

El registro 100 se encuentra en el bloque 25 (partiendo de 1, 
no de 0), pero, ¿en qué byte" 5 Se tendrá: 

Resto de (6336/256)= 192 

Por consiguiente, el registro 100 se encuentra a partir del 
byte 192 del bloque 25. 

El acceso directo es muy rápido porque vamos, a ciencia cier¬ 
ta, al registro ("n") buscado. La limitación de este acceso radica 
en el hecho de que no se sabe qué registro hay en cada lugar 

(vía). Dicho de otro modo, tenemos que desarrollar otro sistema 
para saber qué información se encuentra en cada vía. 

En este punto, tenemos que introducir un nuevo concepto que 
es el de campo ''clave". Si queremos buscar un registro basándo¬ 
nos en el campo “apellido", se dice que “apellido" es un campo 
clave; si deseamos buscar un registro sobre la base del campo 
"mercancía", se dice que "mercancía" es una clave. 

Se dice que un campo es un "campo clave" cuando su conte¬ 
es usado para encontrar los registros. El campo clave nos per¬ 
mite la búsqueda de un registro mediante su contenido. En nues¬ 
tros ejemplos la búsqueda se realizaría basándose en el nombre 
del cliente. Para la búsqueda mediante campos clave veremos 
dos métodos: el acceso mediante INDICE y el acceso de tipo 
HASH. 


Acceso mediante índice (ficheros directos) 


Los diversos registros se almacenan como hemos visto para 
los ficheros de acceso aleatorio. La locomotora deposita el primer 
vagón en la vía 0, el segundo vagón en la vía 1 y así sucesiva¬ 
mente, hasta el sexto vagón en la vía 5. Mientras tanto se crea una 
Libia en donde están almacenadas las claves (fijadas antes) de 
cada registro individual y en qué posición del fichero están guar- 
I : Hemos representado esta tabla como una serie de cajas 
adosadas. Cada caja contiene una clave y la posición relativa del 
icgislio, es decir, el número de vía. El número de cada caja, sin 




. mi >,irgo, no es significativo y sirve sólo como referencia en la ex- 
l ilinación del proceso que se lleva a cabo. 

La figura 7 muestra la situación después de la apertura del h- 
diero. La locomotora está preparada para depositar el vagón de 
"verde". Las vías y las cajas están vacías. 

Nosotros tomaremos como clave de índice el nombre del va- 
■ |ón (verde, rojo...). La figura 8 muestra la situación después de la 
escritura del registro "verde". El vagón "verde" ocupa la vía 0. La 
naja 0 contiene esta información: si busca la clave "verde" sabrá 
que debe retirar el vagón que se encuentra en la vía 0. Los de¬ 
más vagones se depositarán en la forma habitual, es decir, el se¬ 
gundo en la vía 1, el tercero en la 2, etc. Por el contrario, será di¬ 
luí ente el control de las cajas. En ellas, las informaciones deben 
introducirse en orden alfabético ascendente. Cuando escribamos 
el registro "rojo" se colocará en la vía 1, pero tenemos que intro¬ 
ducir la clave ("llave") de "rojo" en la caja 0, aunque esté ocupada. 




i-yvvTá 

M Figura 7—Fichero con acceso mediante índice: situación antes de 
la escritura del registro correspondiente a "verde". 
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Figura 8.—Fichero con acceso mediante índice: situación después 
de la actualización de la clave del registro correspondiente a "verde". 


Esto es así porque las claves deben estar en orden alfabético y 
"rojo" debe colocarse antes de "verde". Por consiguiente, tendre¬ 
mos que desplazar el contenido de la caja 0 a la caja 1 antes de 
introducir en la primera las informaciones de "rojo". 

En la figura 9 observamos que en la vía 0 se encuentra el va¬ 
gón "verde" y en la vía 1 está el vagón “rojo". En las cajas vemos 
que las claves están en orden alfabético ascendente. Ahora sabe¬ 
mos que el vagón “rojo” se encuentra en la vía 1 mientras que el 
vargón "verde” está en la vía 0. Debemos convenir en que es'me¬ 
jor desplazar las informaciones en las cajas que no intercambiar 
entre sí dos vagones. ¡Piense tan sólo en las maniobras que ten¬ 
dría que realizar la locomotora para efectuar el intercambio! La 
creación prosigue con el depósito de vagones en las siguientes 
vías libres, mientras que en las cajas se procede a insertar las cla¬ 


:■ Figura 9—Fichero con acceso mediante Indice: situación después 
de la actualización de la clave del registro correspondiente a "rojo". 


ves (los nombres) y el número de la vía de modo que las claves 
estén en orden alfabético ascendente. 

La figura 10 muestra la situación final y el contenido de las ca¬ 
jas: cada una contiene una clave y el número de la vía correspon¬ 
diente. 

Antes de cerrar definitivamente un fichero con acceso me¬ 
diante clave o índice, el contenido de las cajas debe guardarse 

(se deposita de forma ordenada en uno o varios vagones). La fi¬ 
gura 11 proporciona una representación esquemática de la com¬ 
posición efectiva final del fichero con acceso mediante índice. En 
condiciones normales, los vagones de las claves preceden a los 
demás vagones. En b) está representado el contenido del vagón 
de las claves. 




















Cómo se accede al fichero 

Si queremos tener acceso al registro "rojo" no tendremos más 
que examinar las cajas de nuestros armarios hasta que encontre¬ 
mos la clave "rojo"; en la misma caja se nos dice que el vagón se 
encuentra en la vía 1. Para localizar la clave utilizamos una clase 
de búsqueda que se denomina secuencial: se parte de la primera 
caja y so ve si contiene la clave buscada; de no ser así, se prósi- 
gue la búsqueda en la siguiente La búsqueda concluye en tres 
casos: porque hayamos encontrado la clave, porque hayamos con¬ 
sultado todos los compartimentos sin resultado satisfactorio o por¬ 
que la clave de búsqueda tenga un valor menor que el de las cla¬ 
ves siguientes (es como si no existiera ninguna clave). 




M Figura 11.—Fichero con acceso mediante índice: a) El fichero lleva 
en la cabecera todas las claves. Siguen los registros en el orden de 
grabación, b) Contenido del pequeño vagón de las claves. 


Existen métodos más rápidos para la búsqueda en una tabla 
ordenada. Uno de los más conocidos es la técnica de la búsqueda 
dicotómica o binaria, que consiste en: se divide la tabla en dos par¬ 
tes, se compara la clave con el elemento mediano de la tabla. Si 
se trata del elemento buscado, el proceso está acabado. Si la cla¬ 
ve buscada es menor significa que se encuentra en la primera mi¬ 
tad de la tabla y, de no ser así, deberá encontrarse en la segunda. 
La conclusión es que podemos limitar nuestra búsqueda a sola¬ 
mente una de las mitades de la tabla; por lo tanto, tomamos esta 
parte y la dividimos también en dos, volviendo a iniciar las com¬ 
paraciones en la forma anteriormente explicada. Llegamos a un 
punto en el que se presentan dos casos: encontramos la clave o 
bien no podemos subdividir más la tabla. 

Si se quiere eliminar un registro bastará anular la entrada co¬ 
rrespondiente en la tabla de las claves. Con frecuencia se acos¬ 
tumbra a señalar el registro que se ha anulado, con el fin de per- 
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mitir la reconstrucción del fichero en el caso de su destrucción 
parcial o para recuperar el espacio ocupado por el registro anu¬ 
lado. La figura 12 muestra la situación después de la anulación del 
registro "gualdo", pudiéndose observar que en los compartimen¬ 
tos se ha eliminado la clave “gualdo" y las claves se han despla¬ 
zado un lugar a la izquierda. 

Veamos ahora un ejemplo de búsqueda dicotómica en una ta¬ 
bla constituida por varios elementos. Realizaremos búsquedas tan¬ 
to de elementos que existen como de elementos inexistentes y ex¬ 
plicaremos además un interesante recurso que permite seguir 
paso a paso la lógica del programa y que enseña a encontrar los 
“gazapos". Presentaremos una tabla de 21 elementos, en donde 
cada elemento corresponde a una letra del alfabeto, aunque, na¬ 
turalmente, puede sustituirse por cualquier tipo de cadena, a con- 



?Figura 12.—Acceso a un fichero secuencial de índice: situación des¬ 
pués de la supresión del registro "gualdo". 


i in ii'jii de que queden en orden alfabético ascendente. A conti- 
iiii.ii 'ion damos la tabla correspondiente, en donde hemos supues- 
in también una numeración progresiva que, aunque no estando 
l 11 •:< -nte en la tabla, nos hará más cómodas las explicaciones: 

1 A 

2 B 

3 C 

4 D 

5 E 

6 F 

7 G 

8 H 

9 I 

10 L 

11 M 

12 N 

13 O 

14 P 

15 O 

16 R 

17 S 

18 T 

19 U 

20 V 

21 Z 

Hemos prometido utilizar determinados recursos para expli¬ 
car mejor todo lo relativo a la búsqueda dicotómica. En cumpli¬ 
miento de dicha promesa veamos primero la figura 13, qug pre¬ 
senta, mediante un diagrama de flujo, la subrutina de búsquéda y, 
en segundo lugar, veremos la tabla de estado. 

La "tabla de estado" es de gran utilidad cuando se tiene que 
seguir la lógica de una parte de programa observando el conte¬ 
nido de determinadas variables. La tabla, puesto que de ello se 
trata, esta constituida por diversos elementos (columnas). Tendre¬ 
mos tantos elementos como variables. Haremos ver el contenido 
de los elementos en diferentes momentos y en cada instante se 
pondrá de manifiesto en una línea. Numeraremos las líneas de for¬ 
ma progresiva. En las primeras ocasiones resultará difícil leer una 
tabla de estado, pero estamos en condiciones de asegurar que, 
una vez tomada cierta confianza, será muy útil para las operacio¬ 
nes de depuración. 

¿Qué variables destacar? Es evidente que lo primero que que¬ 
remos ver es el contenido de un elemento de la tabla; en nuestro 
caso, una letra del alfabeto. Por consiguiente, es conveniente sa- 
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M Figura 13.—Búsqueda dicotómica en la gestión de un fichero de 
índices. 


ber la variable que "apunta" al elemento de la tabla; a dicha 
variable la hemos denominado MEDIO, mientras que llamaremos 
ULTIMO al último elemento y PRIMERO al primer elemento de la 
tabla. Las variables PRIMERO y ULTIMO serán modificadas por la 
rutina de búsqueda (observe la figura 13), al igual que la variable 
MEDIO. En las tablas siguientes observará que repetiremos las va¬ 
riables PRIMERO y ULTIMO porque tenemos que conocer el valor 


. |ue se acaba de introducir en la subrutina y porque algunas ins- 
iMicciones modificarán su contenido. Las dos columnas repetidas 
• han encabezado de modo diferente y, desde el punto de vista 
11;:ico, se han colocado de manera que respeten la situación "ini¬ 
cial" y la situación "final". 

Supongamos que se trata de buscar la letra del alfabeto "D". 

¡ /icribiremos la cabecera de la tabla de estado como sigue: 

Paso Inicial Medio Valor Final 

Pr. Ult. (medio) Pr. Ult. 

"Inicial Pr.” representa el valor inicial de la variable PRIMERO. 

“Inicial Ult.” significa el valor inicial de la variable ULTIMO. 

"Final Pr." contiene el valor final de la variable PRIMERO. 

"Final Ult." supone el valor final de la variable ULTIMO. 

Bajo el encabezamiento "paso" escribimos 1, en la columna 
"Primero inicial" escribimos también 1 y bajo "Ultimo inicial" es¬ 
cribimos 20. Estos dos últimos valores los deducimos del flujo del 
diagrama de la figura 13. El valor medio viene dado por 1 + 21 y 
el total dividido por 2. El resultado lo escribimos en la columna 
"Medio". El elemento 11 de la tabla es M y lo transcribimos a la 
columna "Valor (medio)". Queremos buscar la “D" y esta letra tie¬ 
ne un valor menor que M. Por consiguiente, el valor de ULTIMO 
deberá modificarse. El nuevo valor de ULTIMO es igual al valor 
de MEDIO disminuido en 1; es decir, 10. Dicho valor lo escribimos 
en la columna de "último final". A la columna "primero final” lleva¬ 
mos el contenido de "primero inicial", porque dicha variable no 
se modificó. La tabla de estado debe presentarse así: 


i 


Paso 

Inicial 

Medio 

Valor 

(medio) 

Final 

Pr. 

Ult. 

Pr. 

Ult. 

1 

1 

21 

11 

M 

1 

10 


Volvemos al punto "A" y, puesto que el valor de la variable 
PRIMERO no es mayor que el de la variable ULTIMO, completa¬ 
mos ahora la segunda línea de la tabla de estado. En la columna 
"paso” escribimos 2 y llevamos a las dos columnas “inicial" los va¬ 
lores de las variables PRIMERO y ULTIMO, obtenidos de las dos 
últimas columnas de la fila anterior. Por lo tanto, debajo de la va¬ 
riable PRIMERO escribiremos 1 y debajo de la variable ULTIMO 
escribiremos 10. A continuación calculamos el valor de la varia¬ 
ble MEDIO ((1 + 11) /2) y el valor obtenido, que es 5, se escribe 
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en la columna de la variable MEDIO (observe que no se tiene en 
cuenta el resto). Podemos escribir ahora en la columna "Valor (me¬ 
dio)" el valor "E". Puesto que el valor "D" es menor que "E" modi¬ 
ficaremos solamente la variable "último" y así, bajo el encabeza¬ 
miento "último final" escribimos 4 (MEDIÓ-1) y bajo "primero fi¬ 
nal" escribimos el valor anterior, es decir, 1. 

La tabla de estado debe presentarse como sigue: 


Paso 

Inicial 

Medio 

Valor 

Final 

Pr. 


(medio) 

Pr. 


1 

W 

'jm 

22 

M 

1 

mm 

2 

H 

■ti 

5 

E 

1 

Kfl 


Volvamos al punto “A" Como el valor de la variable PRIME¬ 
RO no es mayor que el de la variable ULTIMO, completamos la ter¬ 
cera línea. Bajo el encabezamiento "paso" escribimos 3, y bajo los 
dos encabezamientos de valores iniciales llevamos los valores fi¬ 
nales de la línea anterior, es decir, 1 y 4. Calculamos el valor de 
la variable MEDIO: (1 + 4)/2 = 2. En la columna "medio” escribimos 
2 y en la columna Valor (medio) escribimos "B". Puesto que el va¬ 
lor de la letra "D" es mayor que el de la "B" modificaremos la va¬ 
riable PRIMERO. En la columna "primero final" escribimos 3 (ME- 
DIO +1) y en la columna "último final” llevamos el valor anterior, o 
sea 4. 

Ahora, la tabla de estado se presentará así: 


Paso 


Medio 

Valor 

(medio) 

Final 

Pr. 


Pr. 

Ult. 

1 

Ü 

21 

11 

M 


wm 

2 


10 

5 

E 


s-m 

3 

u 

4 

2 

B 

3 

ím 


Volvemos de nuevo al punto "A" y ya que el valor de la 
variable PRIMERO es menor que el de la variable ULTIMO, es¬ 
cribiremos la línea 4. En la columna "paso" escribimos 4, en la 
columna "primero inicial" escribimos 3 y en la columna "último 
inicial" escribimos 4. Calculamos el valor de la variable MEDIO: 
(3+4) / 2=3. Escribimos 3 en la columna "medio" y C en la columna 



Valor (medio)". Puesto que la "D" es mayor que la “C", modifica- 
n a nos solamente la variable “primero". Escribimos 4 en la colum¬ 
na de la variable "primero final" (MEDIO +1) y 4 en la columna "di¬ 
urno final” (el valor anterior). 

La situación de la tabla de estado quedará como sigue: 


Paso 

Inicial 

Medio 

Valor 

(medio) 

Final 

Pr. 

Ult. 

Pr. 


1 

1 

21 

11 

M 

1 

OI 

2 

1 

10 

5 

E 

1 

Km 

3 


jipi 

2 

B 

3 


4 


m 

3 

C 

4 

n 


Vemos que el valor de la variable PRIMERO es igual al de la 
variable ULTIMO y, por ello, en la columna "paso" escribimos 5; a 
la columna "primero inicial” llevamos el valor 4 y a la columna "úl¬ 
timo inicial" llevamos también el valor 4. Calculamos el valor de 
la variable MEDIO ((4+4)/2) y escribimos el resultado en la co¬ 
lumna "medio”. En la columna "Valor (medio)" escribimos "D". Con 
ello hemos encontrado el elemento a buscar, que se encuentra en 
el cuarto lugar de la tabla. 

Presentemos la situación final de la tabla de estado: 


Paso 

Inicial 

Medio 

Valor 

(medio) 

Final 

Pr. 

Ult. 


,Ult. 

1 

1 

HÜ 

11 

M 

o 

10 

2 

1 

Km 

5 

E 



3 

1 

5Ü 

2 

B 



4 

3 

Hit 

3 

C 



5 

4 

Efl 

4 

D 

11 

11 


Tratemos ahora de buscar la letra "J”, es decir, un elemento 
que no existe en la tabla. Presentamos la tabla de estado tal como 
queda después del último paso, ya que damos por conocidos los 
razonamientos hechos en el caso de la búsqueda de la letra "D”. 
Digamos solamente que en el paso 6 al preguntarnos si el valor 
de la variable PRIMERO es mayor que el de la variable ULTIMO 
y puesto que la respuesta es afirmativa, ello significa que el ele¬ 
mento no existe en la tabla. 
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Paso 




Final 

m 


m 


1 


21 

11 

M 


jCj 

2 

11 

10 

5 

E 



3 

Eü 

10 

8 

H 


iflfc 

4 


10 

9 

I 


■Hi 

5 

10 

10 

10 

L 


ii 

6 

10 

9 






Acceso por el método Hash (al azar) 

Este método de acceso ha adquirido tanta popularidad por 
ser el más rápido para acceso a un fichero mediante índice. Ade¬ 
más, la tabla de claves ocupa menos espacio. 

La figura 14 muestra en su apartado a) la situación después 
de la apertura del fichero. Existen las habituales 7 vías a nuestra 
disposición. La locomotora está preparada para aparcar el vagón 
"verde”. Observamos que no se han utilizado todavía los compar¬ 
timientos, sino que en todos ellos hemos introducido el valor -L 
Para nosotros el valor -1 tiene el significado de compartimiento 
vacío o, lo que es lo mismo, de clave no existente. 

En el acceso Hash se procede a aparcar los vagones (los re¬ 
gistros) en el modo habitual: el primer vagón en la vía 0, el se¬ 
gundo en la vía 1 y así sucesivamente. Se observará que el vagón 
contiene un campo adicional, normalmente a "-1". 

La originalidad del método Hash (comprobación al azar) con¬ 
siste en transformar la clave, que suele ser de tipo alfabético, en 
un valor numérici Las fórmulas para la transformación son nume¬ 
rosas, pero utilizaremos una bastante sencilla. Aun cuando las fór¬ 
mulas o algoritmos sean complicadas puede suceder que 
de claves diferentes se puede obtener el mismo número Hash. 
Este hecho se denomina "colisión" y se debe tener en cuenta. 

El algoritmo utilizado es el siguiente: cada carácter que cons¬ 
tituye la clave se transforma en su valor ordinal, o sea, en aquel 
valor binario mediante el cual está representado en la memoria 
del ordenador. Los valores binarios de los caracteres que ocupan 
posiciones distintas de la clave se sumarán en el totalizador-"X”, 
mientras que los otros valores se sumarán en "Y". A continuación, 
los resultados de "X" e "Y” se dividen por 256 y los restos de las 
divisiones correspondientes se llevan a las variables R1 y R2, res¬ 
pectivamente. Se multiplica R2 por 256 y se le suma Rl; el resul¬ 
tado se lleva a "Z”. Finalmente, dividimos "Z” por 7 y almacenamos 
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Figura 14— Creación de un fichero con método de acceso Hash. a) 
Situación antes de procesar los datos correspondientes a "verde". 


< 4 resto en "H". "H" será nuestro número Hash. Como divisor de "Z” 
se utiliza un número primo, teóricamente el más próximo al nú¬ 
mero de registros que constituyen el fichero. En la práctica suele 
ser un número inferior, con el fin de no desperdiciar memoria. 

En la siguiente tabla se resume la transformación de nuestras 
6 claves en su número Hash. 


Clave 

X 

Y 


R2 

Z 


Verde 

337 

201 

81 

201 

51537 

3 

Rojo 

334 

226 

78 

226 

57934 

2 

Añil 

197 

213 

197 

213 

54725 

6 

Dorado 

311 

209 

55 

209 

53559 

2 

Gualdo 

308 

318 

52 

62 

15924 

6 

Violeta 

206 

207 

206 

207 

52972 

3 
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Se observan muchas "colisiones”. Utilizando como divisor 17 
no habríamos obtenido ninguna colisión, pero la tabla estaría cons¬ 
tituida por 17 elementos, aunque los registros sean sola¬ 
mente 6. 

En la parte b) de la figura 14 se muestra la situación después 
de la grabación de registro "verde”. El número Hash de "verde” 
es 3; por ello abrimos el compartimiento número 3 y observamos 
que contiene el valor -1, lo que significa que está vacío. Por con¬ 
siguiente, introducimos el valor 0 (número de la vía libre). En el 
vagón "verde" añadimos el valor -1 (veremos luego para qué sir¬ 
ve) y luego lo aparcamos en la vía 0. 

La siguiente vía libre es la número 1. En el apartado a) de la 
figura 15 se muestra la situación después de la grabación del 
registro "rojo". El número Hash de "rojo" es 2; abrimos el com- 



M Figura 14.—Creación de un fichero con el método de acceso Hash. 
b) Situación después de la escritura de "verde". 
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Figura 15.—Pasos de la créación de un fichero secuencial con téc¬ 
nica de acceso Hash. a) La situación después de la grabación de 


"rojo". 


partimiento número 2 y observamos que contiene el valor -1, es 
decir, está vacío. Ahora, introducimos en dicho compartimiento el 
valor 1, que es el número de la vía libre. En el vagón "rojo" aña¬ 
dimos el valor -1 y aparcamos el vagón en la vía 1. 

La siguiente vía libre es la número 2. Es fácil comprender cuál 
será la situación después de la grabación del registro "añil": el nú¬ 
mero Hash de añil es 6, así que abrimos el compartimiento núme¬ 
ro 6 y observamos que está vacío (contiene -1); introducimos el 
valor 2, que es el número de la vía en donde aparcamos el vagón 
“añil". En este último vagón añadimos el valor -1 y lo depositamos 
en la vía número 2. La siguiente vía libre será la número 3. Reco¬ 
mendamos para los pasos considerados y los que veremos más 
adelante que se tenga a la vista la tabla de generación de los di¬ 
versos números Hash. 














En el apartado b) de la figura 15 se muestra la situación des¬ 
pués de la grabación del registro "dorado”. El número Hash de "do¬ 
rado” es 2; al abrir el compartimiento 2 observamos que está ocu¬ 
pado ya: nos encontramos ante la primera “colisión". Para subsa¬ 
nar este inconveniente, escribimos en el vagón “dorado” el valor 
"l”, es decir, el valor contenido hasta ahora en el compartimiento 
y luego aparcamos el vagón en la vía 3. La siguiente vía libre es 
la número 4. El compartimiento número 2 ha quedado, por así de¬ 
cirlo, con la puerta abierta de par en par; el valor "1" se ha extraí¬ 
do y ahora hemos introducido el valor413”, que corresponde al nú- 



“Dorado" apunta a rojo 
"Rojo" apunta a nada 


Figura 15.—Pasos de la creación de un fichero secuencial con téc¬ 
nica de acceso Has. b) Se tiene con "dorado" la primera colisión; el 
compartimiento 2 contendrá el número de la vía “dorado", cuyo registro 
"apunta" al interior (rojo); 


i lini o de la vía en dónde ha estado aparcado el vagón "dorado”. 
T.niibién en la grabación del registro "dorado” se tiene otra coli- 
M' ii Añadimos al vagón “gualdo” el valor 2, extraído del compar- 
llmiento 6 y luego aparcamos el vagón en la vía 4. La siguiente 
/i.i libre será la número 5. También el compartimiento número 6 
lia quedado abierto y hemos puesto en su interior el valor 4, o 
m m, el valor de la vía en donde se ha depositado el valor "gualdo”. 

En el apartado c) de la figura 15 se muestra la situación des¬ 
pués de la grabación del registro “violeta", cuyo número Hash 
t 3 y que, por consiguiente, produce otra colisión. Al vagón “vió¬ 
lela" le añadimos el valor "0" contenido en el compartimiento y 
I guiemos el vagón en la vía 5, mientras que en el compartimien- 
lo 3 introducimos el valor 5. La siguiente vía libre es la número 6. 



M Figura 15.—Pasos de la creación de un fichero secuencial con téc- ■ 
nica de acceso Hash. c) Situación después de la escritura del último 
registro. 
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En la figura 16 se muestra la situación final de las vías, de los 
compartimientos y la composición del tren... perdón, del fichero. 
El tren tiene uno o más vagones con las claves; en circunstancias 
normales, dichos vagones se colocan inmediatamente después de 
la locomotora. 

Pasemos ahora al examen de las modalidades de búsqueda 
con el empleo del método Hash. 

En el apartado a) de la figura 17 se muestra la búsqueda de 
la clave "dorado". El número Hash correspondiente a esta clave 




JV Figura 16.—Disposición del Fichero por acceso Hash. 



M Figura 17.—Acceso Hash. a) La generación del número Hash tiene 
efecto inmediato. 


X 

es 2 y, en consecuencia, abrimos el compartimiento 2, que con¬ 
tiene el valor 3. La locomotora se pone en marcha hacia la vía nú¬ 
mero 3, en donde encuentra el vagón "dorado” de forma inmedia¬ 
ta y sin problemas. 

Supongamos ahora que tratamos de buscar el vagón "verde", 
cuyo número Hash es 3. Abrimos el compartimiento 3 y nos en¬ 
contramos con que contiene el valor 5. La locomotora se llevará 
a la vía 5; la situación se ilustra en el apartado b) de la figura 17. 
En la vía 5 nos encontramos, en realidad, el vagón "violeta”. Ob¬ 
servamos, no obstante, que éste contiene el valor 0 y no -1, lo que 
significa que hay una colisión y que en la vía 0 podemos encon¬ 
trar el vagón "verde". Realizamos otro desplazamiento con la lo¬ 
comotora, esta vez a la vía 0, y allí encontramos, efectivamente, el 
vagón “verde”. 
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verde -1 



M Figura 17.—Acceso Hash. b) En el caso de "verde", el número con¬ 
tenido en el compartimiento se lleva a la vía en la que se encuentra 
en realidad "violeta". 


Supongamos ahora que hay que buscar el vagón "negro". Na¬ 
turalmente, sabemos que no existe, pero el ordenador no es tan 
intuitivo como una persona. El número Hash de "negro" sería 5 
(X=224, Y=206, R1 = 224, R2 = 206, Z=52960). Abrimos el comparti¬ 
miento número 5 y nos encontramos con que contiene el valor -1, 
lo que significa que está vacío, o sea, que no existe dicha clave. 

Busquemos ahora la clave "rosa", que también sabemos que 
no existe. El número Hash de "rosa" es 6 (X=229, Y=212, R1 =2?0, 
R2=212, Z=54501). Abrimos el compartimiento 6 y encontramos el 
valor 4; con la locomotora nos desplazamos a la vía 4 y tendre¬ 
mos la situación que se ilustra en la figura 18 a). Observamos que 
en la vía 4 está el vagón "gualdo” y que no es precisamente el bus¬ 
cado; pero dicho vagón lleva el valor 2, indicando una colisión. 
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caba. 


Figura 17.—Acceso Hash. c) No obstante, "violeta" apunta a la vía 0, 
y en otro desplazamiento del tren se encuentra el "verde que se bus- 


Con la locomotora nos desplazamos a la vía 2, en donde encon¬ 
tramos el vagón "añil" (Fig. 18 b). Tampoco este vagón es el bus¬ 
cado; en él encontramos el valor “-1", lo que quiere decir que no 
hay otras colisiones o, dicho de otro modo, que la clave "rosa no 
existe en el archivo. 

Veamos ahora cómo ; un registro. Para ha¬ 

cerlo, es preciso modificar los punteros. Se suele indicar en el pro¬ 
pio registro que se ha borrado utilizando un campo adecuado. La 
figura 19 a) muestra la situación después de borrar el registro 
"gualdo". El número Hash de "gualdo” es 6. Abrimos el comparti¬ 
miento número 6 y nos encontramos con el valor 4. Pasamos a la 
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Figura 18— Dos fases de la búsqueda de claves inexistentes ("rosa") 
con colisiones, a) Primera fase de desplazamiento. 


vía 4, encontramos el vagón "gualdo” y observamos que su pun¬ 
tero es 2; este valor lo introducimos en el compartimiento 6, sus¬ 
tituyendo al valor existente con anterioridad. Además, indicamos 
en el vagón que la información se ha anulado. En el apartado b) 
de la misma figura se muestra la situación después de la anula¬ 
ción del registro ''añil”. 

Las ventajas del acceso Hash son notorias: en la generación 
de un fichero de acceso Hash, los registros nunca sufren despla¬ 
zamiento alguno. El conjunto de las claves ocupa poca memoria. 
Si las colisiones son pocas, el acceso a cualquier registro es muy 
rápido. 
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M Figura 18.—Dos fases de la búsqueda de claves inexistentei ("rosa") 
con colisiones, b) Puesto que el nuevo registro no es "rosa" y "añil" 
tampoco apunta a ningún otro, se llega a la conclusión de que la clave bus¬ 
cada no está en el archivo. 


No obstante, en los registros con acceso Hash existen tam¬ 
bién dos inconvenientes importantes: 

• no se puede leer el fichero en orden creciente o decre¬ 
ciente de clave si no se conocen las claves; 

• no es posible realizar una búsqueda en clave parcial Si uti¬ 
lizamos como clave el apellido no es posible, por ejemplo, 
buscar todos los apellidos que comienzan por "ro". 

También para el acceso Hash es válido el conocido prover¬ 
bio de que “no se puede querer el beneficio sin cargar con el gas- 




















verde — 1 



to”. Con frecuencia, el acceso Hash es muy válido para búsqueda 
en archivos de tipo "vocabulario" o "enciclopedia", en donde se 
sabe exactamente qué clave buscar, 


El árbol binario 

Presentamos uno de los más sencillos ejemplos de árbol bi¬ 
nario. Utilizaremos también los habituales 6 registros y el simbo¬ 
lismo del tren y de los vagones, aunque las vías estarán dispues¬ 
tas de una manera diferente. 

Al comienzo se parte con un nudo ferroviario, la "raíz" del ár¬ 
bol, que contiene una vía muerta en la que se aparcará el vagón, 
inmediatamente antes de que haya un cambio que permita tener 
acceso a la vía de la izquierda o a la vía de la derecha. En con- 
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Fiqura 19.—Situación después déla anulación de dos registros “gual¬ 
do" en a) y "añil" en b). Observe la sustitución de los punteros. 


diciones normales las dos vías estarán cerradas. 

vo vagón éste se enviará a la vía de la izquierda sí su clave es 
menor que la clave del vagón existente en la vía muerta y, de no 
ser a sí, se destinará a la vía de la derecha. Por izquierda y dere¬ 
cha entendemos nuestra izquierda o derecha y no la que ve el 
conductor de la locomotora. 

Recordemos, de forma muy breve, cuanto se dijo en otros vo¬ 
lúmenes de nuestra biblioteca (por ejemplo, en los números 8 
y 9), acerca de que un árbol binario e 

que, partiendo de un nudo raíz, puede prohferar en diversas pa- 

En cada uno de los nudos componentes se 
pueden engendrar otros dos nudos hijos (lo que da lugar a una 
subdivisión en árboles secundarios que tienen como raíz el nudo 
anterior). Cada nudo se numera a partir dei 0 en adelante y con- 
E1 de la izquierda, si es diferente de 0, indica 
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el siguiente número que se encontrará siguiendo la vía de la iz¬ 
quierda, y el puntero de la derecha, si contiene un valor diferente 
de 0, puede significar dos cosas: si el valor es positivo indica el 
numero del nudo que se encuentra siguiendo la vía de la dere¬ 
cha, y si es negativo, su valor absoluto indica cuál es su raíz. 

En el apartado a) de la figura 20 se muestra la situación inicial 
inmediatamente después de la apertura del fichero y con el va¬ 
gón “verde" dirigiéndose hacia una vía. En el apartado b) de la 
misma figura se muestra el vagón "vqrde" colocado en su vía 
muerta; el nudo ferroviario que se ha creado presenta dos vías 
ambas cerradas (existe en ellas la palabra "NO"). 

En la parte c) se tiene la situación después de la grabación 
del registro “rojo". El vagón rojo se ha encaminado a la vía de la 


(raíz) 



v-.; F, gura 20.—Diversas fases de la creación de un fichero organizado 
“ WB en árbol binario. En a) y b) la situación antes y después de la inser- 
ción de Verde" En c) y d) se indica cómo queda después de la inserción 
de rojo y "añil". Se observan los punteros negativos que apuntan a los 
registros situados más arriba. 
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M Fiqura 20,-Diversas fases de la creación de un fichero organizado 
en árbol binario. En a) y b) la situación antes y después de ¡a inser¬ 
ción de "verde". En c) y d) se indica cómo queda después de la inserción 
de "rojo" y "añil". Se observan los punteros negativos que apuntan a los 
registros situados más arriba. 


izquierda del nudo "verde", porque la clave de “rojo" es menor 
eme la clave "verde". Las dos vías de rojo están cerradas y el pun- 
tero tequierdo de "verde" contendrá ahora el valor 2. El puntero 
izauierdo de “rojo" contiene 0, mientras que el de la derecha con¬ 
tiene "-1" (la clave "verde” sigue a la de "rojo"). De forma análoga 
en d) se muestra la situación después de la grabación de aml • 
La locomotora parte de arriba, encuentra el nudo ferroviario ver¬ 
de" v habida cuenta de que la clave de añil es menor que la de 
"verde” se diriqe a la vía de la izquierda. Luego encuentra el nudo 
“rojo" y'al ser la clave de “añil" menor que la de "rojo se dirige 
a la vía de la izquierda y crea un nuevo nudo con dos vías que, 
oor ahora, están cerradas. En la vía muerta deposita el vagón añil. 
El puntero izquierdo de "rojo" contiene ahora 3 El puntero lz 3 u ‘® r , 

dode “añil" contiene 0 y el de la derecha'-2 (antes de ann esta 

"roio”). 
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JBf F ‘ 9 ura 20—Diversas fases de la creación de un fichero organizado 
en^árbol binario. En a) y b) la situación antes y después de la inser- 
ción de 'Verde". En c) y d) se indica cómo queda después de la inserción 
de rojo y "añil". Se observan los punteros negativos que apuntan a los 
registros situados más arriba. 


En la figura 21 encontramos la situación después de la inser¬ 
ción del último registro. Con un mínimo de imaginación no resul¬ 
ta difícil reconstruir las etapas intermedias, que aquí describimos 
de corrido". Para la inserción del registro "dorado", la locomotora 
vuelve a partir desde arriba, encuentra el nudo "verde" y se diri¬ 
ge a la vía de la izquierda,.encuentra luego el nudo “rojo" y toma 
de nuevo la vía de la izquierda. La locomotora encuentra luego 
el nudo "añil", pero esta vez se encamina a la vía de la derecha, 
creando el nudo ferroviario “dorado" con dos vías cerradas por 
ahora. El vagón “dorado” se deposita en la vía muerta del nudo 
dorado". El puntero derecho de "añil" contiene el valor 4 y su va¬ 
lor anterior se ha transferido al puntero derecho de "dorado” En 
el puntero izquierdo de "dorado” se pone el valor 0. 



Figura 21.—Situación del árbol binario después de la inserción del 
último registro. 
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Por lo que respecta a la inserción del registro "gualdo”, la lo¬ 
comotora, después de haber encontrado el nudo "verde”, gira a la 
izquierda y luego encuentra el nudo “rojo" y se dirige a la vía de 
la izquierda, en donde encuentra el nudo "añil" y desemboca en 
la vía de la derecha; finalmente encuentra el nudo “dorado”, toma 
la vía de la derecha y crea un nuevo nudo ferroviario en donde 
deposita el vagón "gualdo" y crea dos nuevas vías, cerradas por 
ahora. El puntero derecho de "dorado" contiene ahora el valor 5 
y su valor anterior se ha colocado en el puntero derecho del re¬ 
gistro "gualdo". El puntero izquierdo de "gualdo” contiene 0. En 
este punto, dejamos como ejercicio para el lector la no difícil in¬ 
serción del registro "violeta". 


Cómo se efectúa la búsqueda en un árbol binario 

Partamos de la situación representada en la figura 21. Supon¬ 
gamos que queremos buscar la clave "dorado”. Con la locomoto¬ 
ra en el nudo raíz nos encontraremos con la clave "verde"; nos di¬ 
rigiremos entonces a la vía de la izquierda porque la clave de bús¬ 
queda es menor que la del nudo. La locomotora encuentra suce¬ 
sivamente el nudo “rojo", se dirige a la vía de la izquierda, en don¬ 
de encuentra el nudo "añil", y sigue aquí por la vía de la derecha, 
en donde encuentra el nudo “dorado". 

Por el contrario, si queremos buscar la clave "rosa", que sa¬ 
bemos que no existe, la locomotora, después de haber encontra¬ 
do el vagón "verde" se dirigirá a la vía de la izquierda, y luego 
encontrará el nudo "rojo". Entonces debería pasar a la vía de la de¬ 
recha ("rosa" > "rojo"), pero no puede proseguir porque la vía está 
cerrada. Ello significa que el vagón "rosa" no existe. 

En la figura 22 se muestra la situación después de la elimina¬ 
ción de la clave "dorado”; es oportuno observar cómo se ha rea¬ 
lizado la anulación del nudo, cambiando adecuadamente los pun¬ 
teros (la clave "dorado", aunque físicamente anulada, sigue exis¬ 
tiendo). 

El árbol binario es una estructura válida sobre todo porque 
permite la actualización, la creación y el borrado manteniendo la 
ordenación de los datos. Para que las operaciones de búsqueda 
sean eficientes es preciso, no obstante, que el árbol esté "equili¬ 
brado", 

Un árbol se dice que está desequilibrado si la mayoría de las 
vías, bien sean de la derecha, bien de la izquierda, están cerradas. 
Por ejemplo, un árbol creado a partir de claves ya ordenadas (tan¬ 
to en sentido ascendente como descendente) está des¬ 
equilibrado sin duda alguna. Las técnicas especiales que permi¬ 
ten crear y mantener árboles equilibrados quedan fuera del ob¬ 



jeto de esta monografía. El árbol binario puede ser recorrido de 
modo que se lean todas las claves en orden y es posible realizar 
búsquedas con claves parciales. 

Vamos a repetir ahora algunos términos técnicos que se sue¬ 
len utilizar en el estudio de las estructuras en árbol. Un árbol se 
suele representar con la raíz arriba y con un crecimiento desde 
arriba hacia abajo, denominándose "nudo" el punto en donde se 
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bifurcan las "ramas” y "hojas" a los puntos en donde no hay bifur¬ 
caciones, sino un registro. En cada nudo y cada hoja hay un re¬ 
gistro. Cada nudo puede tener uno o dos hijos, denominados tam¬ 
bién "subnudos" o nudos secundarios; el hijo de la izquierda debe 
tener un valor inferior al valor del padre. Las hojas no tienen hijos 
y, en tal caso, el puntero contiene el valor "NIL" (que hemos re¬ 
presentado por NO en las figuras). 

Existen varias maneras de recorrer un árbol. La que se utiliza 
en condiciones normales se denomina "en orden", porque sigue 
las claves de manera ordenada. La regla aplicable al recorrido en 
orden es la siguiente: pasar primero a la hoja de la izquierda, lue¬ 
go por su nudo y, finalmente, por la hoja de la derecha. 

La figura 23 muestra el diagrama de flujo de la impresión de 
un árbol en orden. Para comprender mejor el procedimiento uti¬ 
lizaremos la tabla de los estados que, como se dijo anteriormente, 
proporciona el contenido de algunas variables en las diversas fa¬ 
ses. Presentamos primero la situación final de la tabla y luego la 
situación paso a paso. He aquí la situación final: 








Impresión 

1 

1 

2 

6 

2 

_ 

_ 

2 

2 

3 

-1 

3 

— 

— 

3 

3 

0 

4 

4 

— 

añil 

4 

4 

0 

5 

5 

— 

dorado 

5 

5 

0 

-2 

2 

— 

gualdo 

6 

2 

3 

-1 

1 

si 

rojo 

7 

1 

2 

6 

6 

SÍ 

verde 

8 

6 

0 

0 

0 

— 

violeta 


La tabla se desarrolla en 8 pasos y está constituida por varias 
columnas. 

La columna "Paso” está numerada de forma progresiva e in¬ 
dica el número de la fase que se está desarrollando. 

La columna “X Primero" indica el valor de la variable numé¬ 
rica "X” al comienzo de fase. 

La columna “Izq(x)" indica el contenido del puntero de la iz¬ 
quierda existente en el nudo "X". 

La columna "Der(x)" indica el contenido del puntero de la de¬ 
recha existente en el nudo “X". 

La columna "X Después" indica el contenido de "X" al final de 
la fase, pues en cada fase la variable "X" cambia de valor. 

La columna "Entrada en B" indica si el reenvío al algoritmo se 
hizo al punto "B” y no al punto "A". 

La columna "Impresión" indica qué se imprime; el símbolo 
indica que no se imprime nada en absoluto. 


M .Figura 23.—Gestión de un fichero en árbol binario. Diagrama de flu¬ 
jo de la técnica de recorrido "en orden" del árbol. OBSERVACION: 
A y B identifican los puntos de nueva entrada y se podrían eliminar (sir¬ 
ven solamente para la descripción de los diversos pasos en la "tabla de 
los estados"). 
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Veamos paso a paso lo que sucede. La situación del primer 
paso es: 


Paso 

X Primero 

Izq(x) 

Der(x) 

X Después 

Entrada en B 

Impresión 

m 

1 

2 

6 

2 

— 



Al comienzo del primer paso la variable X contiene el valor 
1; el puntero de la izquierda contiene el valor 2 y el de la derecha 
contiene el valor 6. Esto significa que al "doblar la esquina" a la 
izquierda se encuentra el nudo 2, que debe tener un valor inferior 
al nudo 1, y al girar a la derecha se encuentra el nudo 6, que debe 
tener un valor superior. 

Para recorrer el árbol "en orden" tendremos que examinar pri¬ 
mero todas las vías de la izquierda, y para ello obligamos a que 
X tenga el valor contenido en el puntero izquierdo. Naturalmente, 
no se realiza ninguna impresión y la situación después del paso 
2 será la siguiente: 


Paso 

X Primero 

Izq(x) 

Der(x) 

X Después 

-1 

Entrada en B 

Impresión 

1 

1 


6 

2 



2 

2 


-1 

3 

— 

— 


Estamos en el segundo nudo: el puntero izquierdo contiene 
el valor 3, mientras que el puntero derecho contiene el valor "-1”. 
Obligamos a que en "X” exista el contenido del puntero izquierdo; 
es decir, 3. Naturalmente, no se realiza ninguna impresión. 

La situación después del paso 3 es: 


Paso 



Der(x) 

X Después 



I 

1 

2 

6 

2 



2 

2 

3 


3 

_ 

— 

3 

3 

0 

15 

4 

— 

añil 


Estamos en el tercer nudo: el puntero izquierdo contiene 0 y 
el puntero derecho contiene el valor 4. Hemos llegado a una hoja 
y por ello podemos imprimir el contenido del registro. Puesto que 
el puntero derecho no contiene un valor negativo, introducimos 


mi • . ■! valor 4 y volvemos al punto "A" (hacer siempre referen- 
IimiI ' liugrama de flujo de la figura 23). 

l.. i :;¡luación después del paso 4 será la siguiente: 


iVlMK 

X Primero 

Izq(x) 

Der(x) 

X Después 

-1 

Entrada en B 

Impresión 

l 

1 

2 

6 

2 

— 

— 


2 

3 

-1 

3 

— 

— 

i 

3 

0 

4 

4 

— 

añil 

<1 

4 

0 

5 

5 

— 

dorado 


Nos encontramos en el cuarto nudo: el puntero izquierdo con- 
n.- im' 0 y el puntero derecho 5. 

I :n primer lugar, imprimimos el contenido del registro (dora- 
*h>i y luego introducimos en "X" el contenido del puntero dere- 
• liu, porque este valor es positivo. Luego volvemos al punto "A" 

I ,a situación después del paso número 5 será: 


'.ISO 1 

X Primero 

Izq(x) 

Der(x) 1 

X Después 

Entrada en B 

Impresión 

1 

1 

1 

6 

2 



?. 

2 

3 

-1 

3 

— 

— 

3 

3 

0 

4 

4 

— 

añil 

4 

4 

0 

5 

5 

— 

dorado 

B 

5 

0 

-2 

2 

— 

gualdo 


t 


Nos encontramos en el nudo 5 y puesto que el puntero iz¬ 
quierdo contiene 0, imprimimos el contenido del registro. El pun¬ 
iera derecho contiene un valor negativo (-2) y lo transferimos con' 
:i¡gno positivo a "X". A continuación, volvemos a entrar en la su¬ 
bí utina, pero esta vez en el punto B. 

La situación después del paso 6 es la siguiente: 


Paso 

X Primero 

Izq(x) 

Der(x) 




jjSjSf; 

1 

2 

6 

2 
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2 

2 

3 

É 

3 
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3 

3 

0 


4 
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4 

4 

0 


5 
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5 

5 

0 


2 

— 

■SíSElisávfl 
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tm 
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si 

























































Puesto que "X" contiene el valor 2, imprimiremos el conteni¬ 
do del nudo número 2 (es decir, "rojo"). Luego observamos que 
el puntero derecho es negativo y lo transferimos a la variable X 
con el signo positivo. Volvemos a entrar en la subrutina, pero aho¬ 
ra en el punto "B”. La situación de la tabla después del paso 7 es 
la siguiente: 



Nos encontramos en el nudo número 1, pero hemos entrado 
desde el punto B. Escribimos el contenido del registro (verde) y 
luego, como el puntero derecho no es negativo, transferimos su 
valor a “X" y volvemos al punto "A". 

La situación final de la tabla de los estados es la siguiente: 



Nos encontramos en el sexto nudo: el puntero izquierdo con¬ 
tiene el valor 0 y por ello imprimimos el contenido del registro 
(violeta). Puesto que el puntero derecho contiene el valor 0, ha¬ 
brá terminado el recorrido del árbol. 

Una pequeña observación final es que la técnica de los pun¬ 
teros negativos "hacia atrás" no es general. No obstante, la hemos 
encontrado cómoda (además de que es eficiente porque abrevia 
las nuevas subidas de los nudos, que, de no ser así, serían nece¬ 
sarias) sobre todo en la realización de programas en BASIC. 
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LAS BASES DE DATOS 


Fundamentos de las bases de datos 

. -e ha indicado con anterioridad que es frecuente 

/ que dos o más tipos de archivos, o ficheros, se 

/ procesen tanto de forma independiente como 

/ de forma conjunta entre si. 

/ Por ejemplo, el fichero de clientes, contiene 

/ informaciones tales como su código, el apellido, 

/ el nombre, el domicilio, el código fiscal, etc. Al 

/ / mismo tiempo, otro fichero contiene los movi- 

( _/ mientos realizados por los clientes, así como las 

informaciones pertinentes: código del cliente, fecha, código de la 
mercancía, cantidad vendida, etc. Es fácil intuir que la actualiza¬ 
ción del fichero de clientes se realiza en tiempo y en modo díte- 
lentes con respecto a los del fichero de movimientos. El fichero 
de clientes se puede actualizar cuando se incluye un nuevo citen- 
le o cuando tenemos que modificar los datos de alguno. El fichero 
de movimientos se actualiza de forma cotidiana, pero solamente 
..ara aquellos clientes que hicieron adquisiciones. Sin embargo, 
cuando imprimimos las facturas tenemos que trabajar con ambos 

ficheros. , 

Es también intuitivo pensar que no conviene duplicar los da¬ 
los del cliente en los movimientos; sería un enorme desperdicio 
de espacio en disco y puede dar lugar a confusión si nos equi¬ 
vocamos y escribimos de manera diferente los datos en los dos 
ficheros. 


La ventaja de la organización base de datos ("data base") con- 
e precisamente en el hecho de poner en relación varios fiche- 
evítando la duplicación de las informaciones. . 

Habida cuenta del objeto eminentemente divulgativo de esta 










































monografía, nos limitaremos a una base de datos de tipo didácti¬ 
co, constituida por dos ficheros individuales y una sola clave de 
acceso. Para no molestar y no hacer que se produzcan sospechas 
de "connivencia" con la Renfe, la explicación correspondiente no 
se hará con la analogía de locomotoras y vagones, sino con otra 
más apta para aclarar estos conceptos. 


Un ejemplo muy sencillo 

v. 

Concibamos el fichero como si fuera un archivador con cajo¬ 
nes, vacío si no contienen nada los registros. Cada registro está 
representado por un cajón. El primer cajón lleva el número 0; el 
segundo, el número 1, y así sucesivamente. 

Cada cajón, o casillero, del fichero de "clientes" contiene dos 
compartimientos. El compartimiento de la izquierda contiene los 
datos del cliente. El compartimiento de la derecha contiene un 
puntero. Si el puntero es de valor -1 (o, en general, NIL), ello sig¬ 
nifica que no hay movimientos de ese cliente; en caso contrario 
indica en qué registro del fichero de "movimientos" se encuen¬ 
tran las adquisiciones o, dicho de otro modo, el número del regis¬ 
tro que se debe procesar. 

Cada casillero del fichero de "movimientos" contiene, a su vez, 
tres compartimientos: el de la izquierda contiene los datos corres¬ 
pondientes al movimiento, el central contiene el número del re¬ 
gistro del fichero de "clientes" que debe leerse para saber el ape¬ 
llido del cliente, y, finalmente, el compartimiento de la derecha 
contiene un puntero. Si el puntero contiene el valor -1 quiere de¬ 
cir que no hay otros movimientos; en caso contrario, indica el pró¬ 
ximo movimiento (en la práctica, el número del registro que debe 
procesarse para conocer la adquisición siguiente realizada por el 
mismo cliente). 

El fichero de clientes se crea antes de efectuar cualquier mo¬ 
vimiento. La figura 1 muestra la situación, estando vacíos los ar¬ 
chivadores del fichero de clientes y del fichero de movimientos. 

Se presenta ahora el señor "Verde" y realiza dos adquisicio¬ 
nes. No tenemos ningún cliente y, por consiguiente, tenemos que 
escribir sus datos personales; los escribimos en el fichero de clien¬ 
tes. Es fácil imaginar la situación después de la inscripción del 
cliente Verde: el casillero 0 contiene la clave "Verde" y, además, 
contiene el valor -1, que sirve para indicar que, de momento, no 
hay movimientos. 

La figura 2 muestra, por el contrario, la situación después del 
registro de los dos movimientos realizados por el cliente Verde. 
Se han ocupado los dos casilleros 0 y 1 del fichero MOVIMIEN- 
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y Figura 2.—Gestión de una base de datos: situación después de ac¬ 
tualizar el registro de Verde y los movimientos asociados a él. El 
puntero de Verde tiene ahora el valor 0, mientras que antes de registrar 
lo:: movimientos tenía el valor -1 (NIL - nada). 
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l'i < :,ida casillero lleva la indicación genérica de "DATOS" (para 
I,, imoís de nuestra simulación no es preciso saber nada más). Sa- 
Iiimique cada casillero tiene tres compartimientos: en el pri- 
11 ii >i < i ::e almacenan los "datos 11 , el segundo indica en qué casillero 
.|. i hdiero “clientes" se encuentra la identificación del cliente y 
, i i..icer compartimiento indica si hay otros movimientos realiza¬ 
do,'¡ por el cliente. En el último compartimiento del casillero 0 se 
■ n uentra el valor 1 y ello significa que el cliente ha hecho otra 
,n i |iii,sición y que esta adquisición está descrita en el casillero 1. 

I n i'l último compartimiento del casillero 1 encontramos el valor 
l ( lo que quiere decir que el cliente no ha efectuado otras ad¬ 
quisiciones. 

En el archivador de clientes han cambiado también algunas 

II isas: el último compartimiento del casillero 0 ya no contiene "-1", 
mito el valor 0, lo que significa que el cliente Verde ha realizado 
,n |, |uisiciones y que su primer movimiento se encuentra en el ca- 
sillwro 0 del archivador de los movimientos. 

Hemos dicho ya que antes de escribir los movimientos ten¬ 
dí emos que escribir las características del cliente en el fichero 
i li' clientes. Por ello rogamos a la sección de ventas que nos pro- 
I ii ii cione inmediatamente los datos de los nuevos clientes. En con- 
' liciones normales, el cliente se inscribe de forma inmediata en el 
fichero, mientras que los movimientos se almacenan al final de la 

I lU V: O por paquetes. Si, po.r el contrario, se trabaja en tiempo real, 

¡ i v.inict-í :r han ¡i 1: ' [ . 1 ■ • ■ ¡,■ o En nues- 

lia simulación haremos referencia al funcionamiento de tipo 
"batch”. El departamento de ventas, en respuesta a nuestras exi- 
i lencias, nos comunica los datos de tres nuevos clientes: Rojo, Añil 
y Dorado. 

La figura 3 muestra la situación después de registrar a los tres 
nuevos clientes. Cada uno de estos tres clientes no tiene ningún 
movimiento por ahora. El departamento de ventas nos comunica 
luego que el cliente Rojo ha realizado una adquisición y que el 
cliente Dorado ha efectuado dos adquisiciones. El señor Añil no 
ha realizado ninguna adquisición, excusándose por haber olvida¬ 
do el dinero en casa y prometiendo venir al día siguiente. 

No es difícil imaginar la situación después del registro de la 
única adquisición realizada por el cliente señor Rojo. En el archi¬ 
vador de clientes, en el último compartimiento del casillero Rojo 
estará el valor 2, porque el primer movimiento realizado por el 
cliente se encuentra en el fichero de movimientos y, precisamen¬ 
te, en el casillero 2. En este casillero del fichero de movimientos 
encontramos: en el primer compartimiento, los datos correspon¬ 
dientes a lo que ha adquirido el cliente en el segundo comparti¬ 
miento, la referencia a sus datos (es decir, lo relativo al casille- 
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’ Figura 3.—Situación después de la grabación de los datos de tres 
nuevos clientes: Rojo, Añil y Dorado. 



mi del fichero de clientes), y en el tercer compartimiento hay la 
ni' licación de que no existen otros movimientos. 

ha figura 4 muestra la situación después de registrar también 
l i:: dos adquisiciones realizadas por el cliente señor Dorado. En 
i<| fichero de clientes, el señor Añil sigue con el puntero en -1 
i Mil., - nada), que indica la falta de adquisiciones, mientras que el 
.■liante Dorado tiene un puntero dirigido al casillero 3 del fichero 
. I. ■ movimientos. En el fichero de movimientos, el casillero núme- 
io 3 contiene: en el segundo compartimiento, la indicación de que 
.■I nombre del cliente (Dorado) se encuentra en el casillero nú¬ 
mero 3 del fichero de clientes, en el primer compartimiento se in- 
. lica lo que ha adquirido y en el tercer compartimiento se indica 
. |ue la siguiente adquisición se encuentra registrada en el casille- 
IO número 4. En el último compartimiento del casillero número 4 
8Stá el valor -1, porque no hay otras adquisiciones. 

El departamento de ventas nos avisa luego de haber captado 
, i los clientes Gualdo y Violeta. Dejamos como fácil ejercicio al lec¬ 
tor la representación gráfica de dicha situación, así como de la 
posterior a la comunicación habitual del departamento de ventas, 
según la cual el señor Gualdo ha efectuado una sola adquisición. 

El movimiento se registrará en el casillero número 5, cuyo úl¬ 
timo compartimiento nos indicará que no existen otros movimien¬ 
tos. En el fichero de clientes, el último compartimiento del casi¬ 
llero 4 nos indica que el primer movimiento se encuentra en el 
casillero 5 del fichero de movimientos. 

Al final de la jornada el departamento de ventas nos avisa de 
que el cliente Violeta ha realizado una adquisición. La figura 5 
muestra la situación después de esta última actualización de los 
dos ficheros y teniendo en cuenta también lo que se acaba de in¬ 
dicar. En el fichero de clientes, el puntero del cliente Violeta in¬ 
dica que la primera adquisición se encuentra en el sexto casiílero 
del fichero de movimientos. En el fichero de movimientos, el úl¬ 
timo compartimiento del casillero 6 nos informa que el cliente Vio¬ 
leta no tiene ningún otro movimiento. 


Más actualizaciones 

Dijimos ya que la actualización no se suele realizar de forma 
inmediata, sino de forma periódica, por ejemplo al final de la jor¬ 
nada de trabajo o al final de la semana. Al final de la jornada, el 
departamento de ventas nos avisa que el señor Verde ha hecho 
otra adquisición, que el señor Rojo hizo tres, el señor Añil realizó 
una, el señor Dorado otra, el señor Gualdo efectuó dos adquisicio¬ 
nes y el señor Violeta un movimiento. Sabemos que los movimien- 
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K Figura 4.—Situación después de la grabación de los movimientos 
de los Chentes Rojo y Dorado. El cliente Añil no ha hecho todavía 
ninguna adquisición y esta circunstancia le indica el puntero -1 (N1L - 
nada) del fichero CLIENTES. 
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i Figura 5—Situación de la base dé datos inmediatamente después 
de la grabación del movimiento del cliente Violeta. 
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MOVIMIENTOS 


tos se colocan "a la cola” de los registros ya existentes en el fi¬ 
chero de movimientos. En la práctica, una vez que se haya llena¬ 
do hasta el casillero 6, llenaremos los casilleros desde el número 
7 en adelante. ¿Sucederá lo mismo en el fichero de los clientes? 
La respuesta es afirmativa, tal como se verá de inmediato. 

La figura 6 nos muestra la situación después de registrar el 
nuevo movimiento del cliente Verde. Lo primero que hay que ha¬ 
cer es abrir el casillero 0 del fichero de clientes y tomar nota del 
contenido de su último compartimiento (es decir cero) (Fig. 5). A 
continuación, se depositan los datos en el casillero 7 del fichero 
de movimientos y en el segundq compartimiento del mismo ca¬ 
sillero se pone cero, que es la cláve que sirve para indicar el lu¬ 
gar del nombre en el registro de clientes. En el tercer comparti¬ 
miento ponemos de forma análoga cero, que es el valor que he¬ 
mos encontrado en el último compartimiento del fichero de clien¬ 
tes. Finalmente, en este último compartimiento mencionado del fi¬ 
chero de clientes ponemos el valor 7, que es el número del casi¬ 
llero del fichero de movimientos en donde se ha colocado el mo¬ 
vimiento correspondiente. 

De este modo, si abrimos el casillero 0 del fichero de clientes 
sabemos que el cliente se llama Verde y que una de sus adqui¬ 
siciones se encuentra en el casillero 7 del fichero de movimien¬ 
tos. Abrimos este casillero y con el contenido de su último com¬ 
partimiento nos dirigimos al casillero 0 del mismo fichero. Abri¬ 
mos el 0 y el último compartimiento nos indica que hay otro mo¬ 
vimiento, precisamente en el casillero 1. Finalmente, abrimos el ca¬ 
sillero 1 y encontramos la adquisición; en el último compartimien¬ 
to se nos indica que no hay otros movimientos. 

La figura 7 nos muestra la situación después de registrar los 
tres movimientos del cliente Rojo. Los movimientos se han intro¬ 
ducido en los casilleros 8, 9 y 10; en el último compartimiento de 
cada casillero está el puntero al siguiente movimiento. Debemos 
prestar atención al último compartimiento del casillero 10, que 
contiene el valor 2, tomado del último compartimiento del casille¬ 
ro del cliente Rojo antes de que fuera actualizado. El último com¬ 
partimiento del casillero Rojo en el fichero de clientes tiene como 
puntero el valor 8. A costa de resultar pesados, veamos con de¬ 
talle otras situaciones con la ilustración correspondiente. 

La figura 8 muestra la situación después de registrar la adqui¬ 
sición hecha por el cliente Añil. También en este caso el conteni¬ 
do anterior del último compartimiento del casillero 2 (de Añil) se 
ha colocado en el último compartimiento de la adquisición alma¬ 
cenada en el casillero 11 del fichero de movimientos. Intenten us¬ 
tedes acabar las demás actualizaciones. 

La figura 9 muestra la situación después de registrar la adqui¬ 
sición realizada por el cliente Dorado. 
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Figura 6—Situación después de la grabación de otro movimiento 
del cliente Verde. 
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p Figura 8.—Situación después de la grabación de un movimiento del 
cliente Añil. 
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Figura 9— Situación después de la grabación de otro movimiento 
del cliente Dorado. 


I ,a figura 10 muestra la situación después de actualizar las pos- 
liii lores adquisiciones realizadas por el cliente Gualdo. 

| j9 figura 11 muestra la situación después del registro del ul- 
iniio movimiento realizado por el cliente Violeta. 

De forma intencionada, no hemos hablado hasta ahora de 
, ñiño se realiza la búsqueda del nombre del cliente en el fichero 
, i ii respondiente, con el objeto de no hacer más farragosa todavía 
Id i'xplicación. 


Qué hacer con las bases de datos 

En condiciones normales, para tener acceso a las claves se uti- 
lr/..i la técnica explicada con anterioridad en el acceso de índices, 

, >s decir, las claves se almacenan en una tabla ordenada en sen- 
lido ascendente. A menudo se emplea el árbol binario para alma¬ 
cenarlas. , , t , , , 

¿Cómo podemos utilizar y sacar provecho de esta base de da¬ 
los que estamos creando? Se pueden efectuar en ella diversas 
operaciones: 

• consultar solamente el fichero de clientes; 

• consultar solamente el fichero de movimientos; 

• consultar simultáneamente los dos ficheros; 

• actualizar, en el sentido más amplio, los dos ficheros. 

Consultando el fichero de clientes podemos tener todas las 
informaciones sobre ellos y, además, saber de cada uno de los 
clientes si efectuó o no al menos una adquisición. El fichero de 
clientes podemos consultarlo tanto por el orden de inscripción 
del cliente como por el orden alfabético de sus apellidos. Pode¬ 
mos modificar los datos existentes en el registro y podemos aña¬ 
dir nuevos clientes o suprimir algunos. 

Hagamos de nuevo referencia a la figura 11. Si leemos el fi¬ 
chero de clientes de forma secuencial, tendremos a nuestra dis¬ 
posición los clientes en el orden siguiente: Verde, Rojo, Aml, Do¬ 
rado, Gualdo, Violeta. Si leemos el fichero de clientes con la ayu¬ 
da de la clave dispondremos de los clientes en orden alfabético: 
Añil, Dorado, Gualdo, Rojo, Verde y Violeta. Tanto en uno como 
en otro caso, al observar el último compartimiento de cada casi¬ 
llero podemos saber si el cliente ha realizado adquisiciones o no 
y, en caso afirmativo, dónde encontrar los datos de éstas. 

Al consultar el fichero de movimientos podemos saber cuán¬ 
tas adquisiciones se han realizado y en el orden en que se efec¬ 
tuaron. Podemos saber si la adquisición fue hecha por un cliente 
o por otro, y para averiguar su nombre basta consultar el fichero 
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1 Figura 10.—Situación después de ¡a grabación de otros dos movi¬ 
mientos del cliente Gualdo. 
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Figura I ¡.—Situación después de la grabación de otro movimiento 
del cliente Violeta. 
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de clientes. Podemos añadir otras adquisiciones, modificar los da¬ 
tos de un registro y suprimir adquisiciones. Haciendo siempre re¬ 
ferencia a la figura 11 y leyendo de forma secuencial el fichero 
de movimientos obtenemos la lista de las adquisiciones en el or¬ 
den en que se efectuaron y, sin necesidad de consultar el fichero 
de clientes, podemos saber si se efectuaron o no por el mismo 
cliente. 

Si queremos consultar los dos ficheros juntos debemos tomar 
como guía (maestro) uno de los dos Si suponemos como guía el 
fichero de los clientes podemos saber qué adquisiciones hizo 
cada cliente. Por el contrario, si tomamos como guía el fichero de 
movimientos, podemos saber para cada movimiento el nombre 
del cliente que lo efectuó. La figura 11 nos indica también cómo 
se puede operar, por ejemplo, para saber la situación completa 
del cliente Gualdo. En la tabla de las claves encontramos la refe¬ 
rencia 4 para él. Abrimos el casillero 4 del fichero de clientes y 
encontramos allí los datos del cliente y, además, un puntero que 
contiene el valor 13 y que está dirigido al fichero de movimien¬ 
tos. A continuación nos dedicamos a éste. Abrimos el casillero nú¬ 
mero 13 y encontramos los datos correspondientes a una adqui¬ 
sición, y luego, en el último compartimiento, encontramos el va¬ 
lor 14. Abrimos el casillero 14, encontramos los datos correspon¬ 
dientes a otra adquisición, y en el último compartimiento encon¬ 
tramos el valor 5. Abrimos el casillero 5 y encontramos los datos 
correspondientes a otra adquisición. Finalmente, en el último com¬ 
partimiento, encontramos el valor -1, que indica que no se efec¬ 
tuaron más adquisiciones. De este modo se buscan los movimien¬ 
tos realizados en la última actualización, luego los de la penúltima 
actualización (en nuestro caso, primero los datos de la segunda ac¬ 
tualización y luego los de la primera) y así sucesivamente en sen¬ 
tido ascendente. 

La figura 12 muestra la situación después de anular la tercera 
adquisición realizada por el cliente Rojo. Para ello abrimos el ca¬ 
sillero 1 del fichero de clientes y en el último compartimiento en¬ 
contramos que sus adquisiciones han de buscarse en el fichero 
de movimientos a partir del casillero 8. Abrimos el casillero 8 del 
fichero de movimientos y su último compartimiento nos indica que 
el siguiente casillero es el número 9. Abrimos el casillero núme¬ 
ro 9 y en su último compartimiento está la indicación de que la 
siguiente adquisición se encuentra en el casillero 10 y, además, 
éste es el registro que queremos eliminar. Bastará a este respec¬ 
to, para indicar que el registro se ha anulado, que introduzcamos 
el valor -1 en el compartimiento del cliente. La anulación está con¬ 
cluida; como se dijo con anterioridad, no hemos previsto la recu¬ 
peración del espacio libre. En general, pues, para anular un mo¬ 
vimiento bastaiá poner un -1 en el código del cliente. 
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f Figura 12— Situación después de la anulación de un movimiento del 
cliente Rojo. 
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Finalmente, la figura 13 muestra la situación después deja 
■ mulación de la única adquisición realizada por el cliente Añil. 
Abrimos el casillero del cliente Añil y en el último compartimien- 
to encontramos el valor 11. Abrimos el casillero 11 del fichero 
.le movimientos y en el último compartimiento encontramos el 
valor -1, que corresponde al hecho de que no hay otras adquisi¬ 
ciones. Para indicar que el registro fue anulado, en el segundo 
compartimiento, en el lugar de la referencia al cliente, ponemos 
el valor -1 y cerramos el casillero. En el último compartimiento 
del casillero del cliente Añil ponemos el valor -1, extraído del úl¬ 
timo compartimiento del casillero de movimientos y, de este 
modo, sabemos que no hay otros movimientos (entre nosotros, un 
cliente de este género vale la pena suprimirlo del archivo, pues 
no es nada rentable). 

Debería ser evidente, pero, no obstante, hemos de remarcar 
el hecho de que antes de eliminar un cliente del archivo deberán 
eliminarse TODOS sus movimientos. La eliminación se suele efec¬ 
tuar suprimiendo la entrada correspondiente en la tabla de las cla¬ 
ves y señalando el registro que se ha anulado. 

El sistema que hemos utilizado para actualizar los ficheros tie¬ 
ne el inconveniente de que cuando queramos conocer los movi¬ 
mientos efectuados por cada cliente éstos no se presentarán en 
el orden en que se efectuaron. Por supuesto, es posible actuar de 
modo que se tengan los movimientos en el orden exacto en que 
se realizaron. Sin embargo, no hemos querido elegir este camino 
porque la técnica adoptada es la más rápida y sencilla, por cuan¬ 
to que limita las operaciones de entrada/salida. 
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Figura 13.—Situación después de la anulación de un movimiento del 
cliente Añil. 






























































PROGRAMAS Y SUBRUTINAS PARA GESTIONAR 

FICHEROS 


Especificaciones 

I omenzamos ahora la presentación y comenta- 

/ rio de los P rimeros programas para la gestión 

/> de ficheros como los que hemos visto en los 

/ ■ / ▲ ejemplos de capítulos anteriores; en nuestra 

segunda monografía sobre bases de datos 
■abordaremos los casos más complejos. Trata- 
M remos, sobre todo, de eliminar las dudas e in- 

/• convenientes puestos de manifiesto; presenta- 

/ / remos, además, programas para la recupera¬ 

ción del espacio debido a anulación de los registros. En los fiche¬ 
ros de acceso directo utilizaremos el primer registro para mante¬ 
ner algunas informaciones, mientras que emplearemos los regis¬ 
tros sucesivos para conservar los datos del fichero. En el PASCAL 
UCSD los registros de un fichero de acceso aleatorio están nume¬ 
rados del 0 al 32767 y en el BASIC MS-DOS están numerados del 
1 al 32767; en un intento de simplificar esta cuestión y no introdu¬ 
cir elementos que despisten, en UCSD no utilizaremos el registro 

o. 

En los programas especiales, prepararemos el fichero con to¬ 
dos los campos adecuadamente puestos a cero y dispondremos 
el espacio en disco para su máxima amplitud. De este modo es¬ 
tableceremos un poco de orden en nuestros archivos y tomare¬ 
mos precauciones ante la posibilidad de que otros programas nos 
"roben" el espacio en disco. 

En el primer registro almacenamos dos informaciones: cuán¬ 
tos registros podrá contener el fichero y cuál será el primer re¬ 
gistro a grabar. 

Además, hemos de tener presente que una vez asignado el 


>•-i> > ‘ti disco no tendrá ningún significado el empleo de EOF 

(final de fichero). Si queremos utilizar esta técnica, tendremos que 
escribir un programa que configure de manera adecuada el archi¬ 
vo. 

Pata la gestión de las claves no utilizaremos tablas en memo¬ 
ria, sino otro fichero. Por consiguiente, diremos adiós a los “arma¬ 
rios" y a los "vagones". En algunos casos utilizaremos para las cla¬ 
ves el árbol binario. 

Presentaremos los programas tanto en BASIC MS-DOS como 
en PASCAL UCSD y los nombres de las sübrutinas serán idénticos. 
Todos los programas se han incluido en el apéndice, en donde, 
en un intento de ser más claros, las llamadas a las subrutinas 
(GOSUB) se han destacado de forma adecuada. Antes de aden¬ 
trarnos en las diversas organizaciones, presentamos algunas sub¬ 
rutinas válidas en todos los tipos de fichero. 


Subrutina de borrado de pantalla 


Esta subrutina es muy sencilla y sólo hemos pretendido pre¬ 
sentarla con el fin de que sea la primera en adaptarse al propio 
hardware. Lamentablemente, para borrar los caracteres en la pan¬ 
talla se utilizan comandos que varían de un lenguaje a otro y de 
un ordenador a otro. Consultando los manuales correspondientes 
no resulta difícil identificar los caracteres de control que deben 
utilizarse. Lo importante, a nuestro juicio, es destacar la instrucción 
que debe modificarse y que ésta sea una sola (éste es precisa¬ 
mente el objeto de la subrutina). 

Para el lenguaje BASIC MS-DOS la subrutina está incluida en 
el apéndice y se repite para cada caso. La subrutina ocupa siem¬ 
pre las líneas 500 a 550. 

540 CLS 

550 RETURN 

También para el PASCAL UCSD las instrucciones correspon¬ 
dientes al procedimiento BORRADO se llevan al apéndice. A títu¬ 
lo excepcional damos en esta ocasión el procedimiento completo. 

PROCEDURE borrado de pantalla; 

BEGIN 

WRITE (CHR(28)); 

END; 



Subrutina del teclado 

Cuando se introducen datos a través del teclado es conve- 
i ni 'nte comprobar la validez de dichos datos. Por ejemplo, los cam- 
I ii i.-; numéricos deben estar constituidos solamente por dígitos. Si 
.■nte la solicitud de datos numéricos se responde con una tecla al- 
l.ibética, tanto en BASIC como en Pascal se emitirá un mensaje de 
error. Ello resulta antipático e incómodo, sobre todo si se tiene la 
buena costumbre de guiar al operador en la introducción de los 
i latos presentando en la pantalla una “máscara". Los mensajes de 
error perturban la máscara y, en Pascal, estos mensajes interrum- 
I ion el programa. 

La subrutina prevé la introducción de datos del tipo INTEGER 
i entero), LONG INTEGER (para el Pascal). COMA FLOTANTE (para 
' i BASIC) o CADENAS La variable SW indica el tipo de dato. Las 
variables XPOS e YPOS indican en qué línea y columna debe dar¬ 
se la respuesta. La subrutina prevé el control de la tecla (flecha a 
la izquierda, retroceso —backspace— o CONTROL-Q, según el or¬ 
denador que utilicemos), adecuada para corregir los caracteres 
ya escritos. 

En los ejemplos que presentamos, el valor binario de la tecla 
i le borrado (backspace) es 8 para el Pascal y 29 para el BASIC. 

La subrutina continúa leyendo caracteres hasta que se pulse la te¬ 
cla <RETURN>. Si el campo es numérico y no se están emplean¬ 
do las teclas del 0 al 9, se emitirá una señal acústica. Si el campo 
es alfabético y no se utilizan las teclas adecuadas se producirá 
también una indicación acústica. 

Si la variable SW se ha puesto a “1", entonces el campo se con¬ 
siderará numérico y el valor se restituirá a la variable PEQUEÑO. 
Si la variable SW se ha puesto a "2", el campo se considerará nu¬ 
mérico, pero el valor correspondiente se restituirá en la variable 
GRANDE. Finalmente, si la variable SW se ha puesto a “3", el cam¬ 
po se considerará alfabético y el resultado se restituirá en la va¬ 
riable ALFA. 

En BASIC, la subrutina se lleva al apéndice y, en las instruc¬ 
ciones 1000/1300, con el propósito de no complicar la vida a nues¬ 
tros amables lectores, se repetirá en cada estructura. Comente¬ 
mos las instrucciones siguientes: 


1040 ALFAt="“ 

1050 6QSUB 15800:REH —>P0SICI0NA EL CURSOR 
1060 GOSUB 15900:REH —>LECTURA DEL CARACTER 
1070 IF ASC(CAR*)=13 THEN GOTO 1210 
10B0 IF ASC(CAR*)<>8 THEN GOTO 1310 
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La subrutina no está acabada y la hemos interrumpido mo¬ 
mentáneamente para poderla comentar. Después de haber pues¬ 
to a cero la variable ALFA$¡ cedemos el control a la subrutina de 
"lectura de carácter", que se encarga de leer un carácter a partir 
del teclado. En MS-DOS, para leer un carácter del teclado haremos: 

15940 C AR$= INPUT$( 1) 


¿No le parece sencillo? Hemos querido aislar dicha instruc¬ 
ción porque varía de una versión de BASIC a otra. Una vez leído 
un carácter y cargado en la variable CAR$, examinaremos su con¬ 
tenido y 

• si su valor corresponde al de la tecla de retomo (13) ce¬ 
deremos el control a la instrucción 1210; 

• si el valor es 8 (backspace) cederemos el control a la ins¬ 
trucción 1120, que se encargará de borrar el carácter co¬ 
rrespondiente; 

• si el valor no corresponde ni a la tecla de retorno ni a la 
de corrección, el control pasará a la instrucción 1310. 

Veamos la parte correspondiente al borrado: 

1120 1F LEN(ALFAÍ)>1 THEN ALFA*=LEFT*(ALFA*, 

LEN (ALFA*)-1) ELSE ALFA*=‘" 

1130 REh - 

1140 REM -- IMPRESION DEL CAMPO -- 

1150 REM - 

1160 60SUB 15800:REM —>P0SICI0NA EL CURSOR 
1170 PRINT ALFA*;" 

1180 G0SUB 15800:REH -->P0SICI0NA EL CURSOR 
1190 PRINT ALFA* 

1200 GOTO 1060 

Esta segunda parte de la subrutina tiene como objeto borrar 
el último carácter introducido a través del teclado; también se 
aprovecha en parte en otros sitios de la subrutina. Hay que des¬ 
tacar la instrucción 1170, que escribe los caracteres introducidos 
a través del teclado seguidos por un espacio en blanco. La ins¬ 
trucción 1180 reposiciona el cursor y la instrucción 1190 vuelve a 
escribir los caracteres válidos introducidos a través del teclado 
de tal modo que el cursor quede posicionado de forma exacta. 


Cuando se detecta un retorno de carro se activa la subrutina: 

1210 REM ::::::::::::::::::::: 

1220 REM :: NUEVA ENTRADA s: 

1230 REM :::::.:::::::::: 

1240 IF SN=3 THEN RETURN 
1250 6#=0 

1260 FQR X=1 TO LEN(ALFA*) 

1270 B#=Gt*10+ASC(MID*(ALFA*,X,1))-48 
12B0 NEXT X 

1290 IF SH=1 THEN PEQUEÍ50Í=CSNG(6I) ELSE 
6RANDEI=G* 

1300 RETURN 

Con estas instrucciones se vuelve a la subrutina que efectuó 
la llamada. Si SW se hubiera puesto a 3 (estamos en un campo al¬ 
fabético) se realiza el retorno de forma inmediata y, de no ser así, 
se tendrá que convertir el campo de cadena en un campo numé¬ 
rico. Las instrucciones 1260 a 1280 se encargan de rellenar el cam¬ 
po numérico G#. Algunas versiones del lenguaje BASIC tienen la 
posibilidad de convertir la cadena en un número; las instruccio¬ 
nes que presentamos pueden utilizarse en muchas versiones de 
BASIC. 

Por último, si es un carácter normal, la subrutina será: 


1310 REM - 

1320 REM -- CARACTER NORMAL - 

1330 REM - 

1340 IF SW=3 THEN GOTO 1450 

1350 REM - 

1360 REM -- CARACTER NUMERICO -- 

1370 REH - 

1380 IF CARÍ<“0" OR CAR*>“9" THEN GOTO 1400 
1390 GOTO 1490 

1400 REM - 

1410 REM - ERROR DE TECLA - 

1420 REM - 

1430 PRINT CHR*(7); 

1440 60T0 1060 

1450 REM--- 

1460 REM - CARACTER ALFABETICO - 
1470 REM - 
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1480 IF CAR$<" " DR CAR$>"z‘ THEN GOTO 1400 

1490 ALFA$=ALFAJ+CARt 

, 1500 GOTO 1130 

La subrutina está terminada. Esta parte final se encarga de pro¬ 
cesar los caracteres válidos; si el carácter es numérico debe te¬ 
ner un valor comprendido entre 0 y 9 (ver instrucción 1380) y, de 
no ser así, deberá tener un valor comprendido entre el espacio 
y "z" (instrucción 1480). Si el carácter no está dentro de los límites 
indicados, se emitirá una señal acústica, no se imprimirá el conte¬ 
nido de CAR$ y se pedirá otro carácter del teclado. Si el carácter 
es válido, se transferirá a la cola de la variable ALFA$, se escribi¬ 
rá y se solicitará el siguiente carácter del teclado. 

La subrutina en PASCAL UCSD se encuentra en el apéndice 
y está inserta en cada programa de las estructuras que hemos vis¬ 
to. Como es habitual destacaremos las instrucciones más signifi¬ 
cativas: 

CASE sw 0F 

’1’:pequeño:=0; 

’2’:grande:=0; 

’3’:alfa:=0; 

END; 

Ponemos a cero las variables PEQUEÑO, GRANDE y ALFA so¬ 
bre la base del contenido de la variable SW. 

COTOXY (POSX, POSY); 

Situamos el cursor en las coordenadas indicadas por las 
variables POSX y POSY. Sigue luego un bucle de instrucciones 
que se repiten hasta que se pulse la tecla RETURN (ÜNTIL 
EOLN(KEYBOARD)). Se actúa sobre el dispositivo KEYBOARD 
(TECLADO), que tiene la particularidad de no escribir en la pan¬ 
talla el carácter introducido a través del teclado o, como se dice 
técnicamente, que no hace eco. 

REPEAT 

RE8D(KEYBOARD,car); 

IF NOT EOLN(KEYBOARD) 

THEN BEGIN IF 0RD(car)=8 THEN BEGIN 
GOTOXY(x_po5,y_pos); 

CASE sw ÓF 
’1’¡BEGIN 


pequeño:=pequeno DIV 10; 

WRITE(pequeño,’ ’); 

60T0XY (x_pos, y_pos); 

WRITE(PEQUEÑO); 

END; 

Se lee un carácter del teclado y se compara, en este caso con 
el valor 8, es decir, la tecla de retorno (se tiene que volver a es¬ 
cribir el campo sin el último carácter). Según que el campo sea 
ilel tipo integer (entero), long integer (en Pascal) o string (cade- 
ii.i), se utilizan diferentes instrucciones. En el caso de variable en- 
Igra (integer) para eliminar el último dígito se ha dividido PEQUE¬ 
ÑO por 10 y luego se escribe junto con un espacio en blanco para 
eliminar de la pantalla el carácter a borrar. El segundo WRITE sir¬ 
vo para posicionar adecuadamente el cursor. Continuemos la ex¬ 
plicación de la subrutina. 

’2’:BEGIN 

grande:=grande DIV 10; 

WRITE(grande,’ ’); 

G0T0XY(x_pos,y_pos); 

WRITE (grande) ¡ 

END; 

En el caso de "long integer", ejecutamos instrucciones muy si¬ 
milares a las empleadas para los campos "integer", actuando so¬ 
bre la variable GRANDE en lugar de sobre la variable PEQUEÑO. 

’3’:BEGIN 

DELETE (al -f a,LENGTH (aHa), 1); 

WRITE(alfa,’ ’); 

GOTOXY (:<_pos, y_pos); 

WRITE (aHa); " 

END; 

END; 

END 

En el caso de variables de tipo de cadena utilizamos el pro¬ 
cedimiento DELETE, que permite, en nuestro caso, borrar el últi¬ 
mo carácter de la cadena. La instrucción está constituida por tres 
parámetros, de los cuales el primero indica en qué cadena se quie¬ 
re trabajar, el segundo indica qué carácter de la cadena se quiere 
borrar y el último parámetro sirve para indicar cuántos caracteres 
deben borrarse. En nuestro caso, la función LENGTH(ALFA) resti- 
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tuye la longitud de la variable ALFA, que sirve también para in¬ 
dicar la posición del último carácter. 

ELSE BEBIN 
IF sw IN [MV2’J 
THEN BEGIN 
IF car INC’0’..’9’] 

THEN BEGIN 

IF su*’!’ 

THEN pequeño: =pequeno*10+0RD(car)-48 
ELSE grande:=grande$10+0RD(car)-48; 

«rite 

END 

ELSE HRITE(CHR$(7)); 

END (del campo numérico} 

Estas instrucciones se refieren al caso en que lo que quere¬ 
mos es introducir dígitos. Primero se comprueba que el carácter 
está comprendido entre los valores 0 y 9; de no ser así se emite 
una señal acústica. Si el carácter es, efectivamente, un dígito se 
añadirá a la variable PEQUEÑO o a la variable GRANDE, depen¬ 
diendo del contenido de la variable SW y, luego, el carácter apa¬ 
recerá en la pantalla. 

ELSE BEGIN 

IF car IN [’ 

THEN BEGIN 
st:=' 

stC13:=car; 

alfa:=CONCAT(alfa,st); 

HRITE(car); 

END 

ELSE HRITE(CHR*(7)); 

END; (del campo alfabético} 

Esta examina el caso de datos alfabéticos. Si el contenido de 
la variable CAR no está comprendido entre espacio y la letra “z" 
se emitirá una señal acústica y, de no ser así, se pondrá "a la •cola” 
eri la variable ALFA (ver función CONCAT) y el carácter apare¬ 
cerá en la pantalla. 


Subrutina menú 

El operador tiene la posibilidad de "elegir” la función que de¬ 
sea respondiendo con un valor numérico. Las instrucciones de 
BASIC se llevan a los programas GESTION del apéndice, desde la 
instrucción 800 a la instrucción 980. 

830 REM 

840 PRINT -1 --> CARGA DE DATOS" 

850 PRINT 

860 PRINT "2 —> LECTURA DE REGISTROS" 

870 PRINT 

900 PRINT "4 --> MODIFICACION DE UN REGISTRO" 

910 PRINT 

920 PRINT "5 --> BORRADO DE UN REGISTRO" 

930 PRINT 

940 PRINT ”9 --> FINAL DE PROGRAMA" 

950 PRINT 

960 PRINT "?’:RESPUESTA$=INPUT$(1):QUEQUIERE= 
flSC(RESPUESTA*)-ASC("0") 

La instrucción 850 tiene como objeto insertar una línea vacía 
entre una opción y otra del menú. La respuesta dada mediante el 
teclado se recoge en la variable RESPUESTA^ que luego se in¬ 
troduce en la variable QUEQUIERE en forma binaria. La función 
INPUT$ nos permite pulsar una tecla y volver a entrar en el pro¬ 
grama sin tener que pulsar la tecla RETURN 

En el apéndice reservado al Pascal se incluye el procedimien¬ 
to MENU introducido en el programa GESTION. Veamos las ins¬ 
trucciones principales: 

borrado_pantalla; 

HRITELN; 

NRITELNC1 --> CARGA DE DATOS’); 

HRITELN; 

HRITELN(’2 --> LECTURA CON EL NOMBRE DE CLIENTE’); 

HRITELN; 

HRITELN(’3 -> LECTURA CON EL NUMERO DE REGISTRO’); 

HRITELN; 

HRITELN(’4 -> MODIFICACION 0 ANULACION DE REGISTRO’); 

HRITELN; 

HRITELN(’5 --> PUESTA EN COLA DEL REGISTRO AL FINAL’); 

HRITELN; 
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HRITELN('9 --> FIN DEL PROGRAMA’); 

WRITELN; 

READ(QUEJUIERE) ¡HRITELN; 

La primera instrucción tiene como objeto borrar la pantalla; 
luego se visualizan las opciones del menú separadas por una lí¬ 
nea vacía. La respuesta dada a través del teclado se recoge en la 
variable QUE—.QUIERE. Se ha hecho de tal modo que no tuviéra¬ 
mos necesidad de utilizar la tecla RETURN; es suficiente pulsar 
una tecla cualquiera para volver el control al programa. 


Subrutina de máscara 

Esta subrutina escribe en la pantalla los nombres de los cam¬ 
pos, dejando a su derecha el espacio adecuado para la respuesta; 
dicho de otro modo, se hace una "entrada guiada". 

En BASIC la subrutina se lleva al apéndice desde la instruc¬ 
ción 10000 a la 10230. Comentemos algún fragmento de esta su¬ 
brutina para ilustrar su funcionamiento. 

10040 YP0S=4:XP0S=1 

10050 G0SUB 15800: REM ->P0SICI0NA EL CURSOR 

10060 PRINT "CLIENTE :* 

El cursor se posiciona de forma adecuada (línea 1, colum¬ 
na 4) y luego se imprime la cadena “CLIENTE A continuación 
siguen otras instrucciones, similares a las arriba indicadas, para 
presentar en pantalla la solicitud de la dirección, de la ciudad, del 
teléfono y del prefijo; por supuesto, en posiciones diferentes. 

En el lenguaje PASCAL, el procedimiento se lleva al apéndi¬ 
ce reservado al Pascal con el nombre MASCARA. 

BDT0XY(0,4); 

WRITEt’diente :’); 

GOTOXY posiciona el cursor en la primera columna de la lí¬ 
nea 5 y WRITE escribe el encabezamiento del campo del cliente. 
Siguen luego otras instrucciones, similares a las dos arriba indica¬ 
das, para describir los otros campos del registro. 


Subrutina de visualización 

En BASIC la subrutina ocupa las instrucciones 11000/11260 y 
se lleva íntegramente al apéndice para cada estructura. 


11040 YP0S=4:XPDS=13 

11050 G0SUB 15B00:REM —>POSICIONA EL CURSOR 

11060 PRINT CLÍ; 

El cursor se posiciona en la columna 13 de la línea 4, en don¬ 
de se imprime el nombre del cliente. Se procede de forma análo¬ 
ga para los otros campos del registro. 

En PASCAL, el procedimiento VISUALIZACION se lleva al 
apéndice reservado al Pascal. Comentamos solamente algunas 
instrucciones: 

GOTOXY(13,4); 

WRITE(diente\cliente); 

El cursor se posiciona en la columna 14 de la línea 5, en don¬ 
de se imprime el nombre del cliente. Se procede de forma análo¬ 
ga para los otros campos del registro. 


Subrutina de carga 

Para el BASIC la subrutina se lleva al apéndice en los progra¬ 
mas GESTION, a partir de la instrucción 2000 y hasta la instrucción 
2740. Procedemos a comentar las instrucciones principales, recor¬ 
dando que los comentarios se refieren a la gestión HASH; durante 
el comentario de las otras estructuras indicaremos las ocasionales 
diferencias. 

2040 G0SUB 500:REM —>BQRRAD0 DE PANTALLA 
2050 PRINT "LA CARGA PARTE CON EL NUMERO:*; 

ACTUAL’/.-1 

Después de haber borrado la pantalla se visualiza el número 
del primer registro a grabar. 

2060 IF ACTUALX<3 THEN GOTO 2140 

2070 NUMER0%=ACTUALX-1 

2080 FIELO 1,31 AS CLt,33 AS IN$,15 AS CI», 

4 AS TE*, 4 AS PR*,1 AS TI* 

2090 G0SUB 15000:REM —>LECTURA DE CLIENTE 
2100 PRINT "EL REGISTRO ESCRITO ES EL SIGUIENTE:" 

2110 G0SUB 10000:REM —>MASCARA 
2120 6QSUB 11000:REM ~>VISUALIZACI0N 
2130 PRINT 


2140 INPUT "PULSE <RETURN> PARA INICIAR LA CARGA"; RESPUESTA* 

En el caso de que no se hubiera escrito todavía el primer re¬ 
gistro, el control se pasará a la instrucción 2140. De no ser así 
(cuando ya se inició la carga) se leerá el último registro grabado 
y se le visualizará en la pantalla, por lo que se podrá comprobar 
la posición exacta de la carga. Se entra luego en un bucle de ins¬ 
trucciones en donde se piden los datos del cliente; dicho bucle 
termina cuando se responde con "zzzz” a la solicitud del nombre 
del cliente. 

2150 REM 

2155 FIELD 1,31 AS CL*,33 AS INI, 15 AS CI», 

4 AS TE»,4 AS PR*,1 AS TI* 

2160 GOSUB 500:REM->B0RRAD0 DE PANTALLA 

2170 YP0S=20:XP0S=1 

2180 GOSUB 15800:REH -->P0SICI0NA EL CURSOR 
2190 PRINT -PARA ACABAR LA CARGA,A LA SOLICITUD 
NOMBRE DEL CLIENTE TECLEE ’zzzz” 

2200 GOSUB 10000:REM -->MASCARA 
2210 XP0S=13:YP0S=4 
2220 SH=3 

2230 GOSUB 1000:REM —>TECLAD0 
2240 N0MINATIV0*=ALFA* 

2250 IF NDNINATIVQ*=“zzzz" THEN RETURN 

El cursor se posiciona en la columna 13 de la línea 4 y luego 
se cede el control a la subrutina TECLADO. El valor restituido se 
almacena en la variable NOMINATIVO? en el caso de que se in¬ 
troduzca "zzzz”. En caso contrario: 

2260 IF ACTUALZ>ULTIHOZ THEN INPUT 'NO PUEDE 

CONTINUARLE HA SUPERADO LA DIMENSION DEL FICHERO 

Lo anterior sirve para cerciorarse de no haber superado las 
dimensiones del fichero. 

2270 GOSUB 12000:REM —>CALCUL0 
2280 GOSUB 13000:REM —>BUSQUEDA 
2290 IF FIN=1 GOTO 2320 
2230 INPUT -ESTE CLIENTE YA EXISTE. NO PUEDO 
INTRODUCIRLO.PULSE <RETURN>";RESPUESTA* 

2310 RETURN 



La subrutina BUSQUEDA realiza la búsqueda en el fichero 
i 'I JUNTES del nombre correspondiente y pone a 1 la variable FIN 
ni dicho nombre está introducido ya en el fichero, en cuyo caso 
lu i echazaremos. 

2320 CLIENTE»=N0MINATIV0* 

2330 SH=3 
2340 XP0S=13 
2350 YP0S=6 

2360 GOSUB 1000:REM —>TECLAD0 
2370 DIRECCIQN*=ALFA* 

A través del teclado se introducen los datos correspondien- 
tes al campo de la dirección. Luego se solicitan de forma análoga 
las informaciones relativas a los otros campos. 

2540 GOSUB 15200:REM —>LECTURA HASH 
2550 C0LISI0NZ=CVI(HASHt) 

Se lee el registro actual del fichero de índice y el valor del 
único campo se almacena en la variable COLISION%. 

2560 LSET HASH*=MKI*(ACTUALZ) 

2570 GOSUB 15700:REM —> ESCRITURA HASH 

Se escribe el registro de índice después de haberlo actuali¬ 
zado con el contenido de la variable ACTUAL%. 

2580 FIELD 1,31 AS CLÍ, 33 AS INS,15 AS CIt, 

4 AS TE*, 4 AS PR*,1 AS TU, 2 AS C0Í 
2590 LSET CLt=CLIENTEÍ 

Ahora actualizamos el fichero de clientes; con la última ins¬ 
trucción se transfiere el contenido de la variable CLIENTE? a la 
variable CL? destaquemos el hecho de que ha de utilizarse la ins¬ 
trucción LSET. 

A continuación se dan otras instrucciones análogas para com¬ 
pletar los demás campos del registro. 

2650 LSET CQ*=MK!4(CQL!SI0N7.! 

2660 NUMER0X=ACTUAL7. 

2670 GOSUB 15500:REM -^ESCRITURA CLIENTE 
2680 flCTUALS=ACTUALW 
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Damos ahora las instrucciones correspondientes a la escritu¬ 
ra del registro de los clientes y a la actualización del "cuenta re¬ 
gistros". 

2690 FIELO 1,2 AS ACTUAL*.2 AS ULTIMO* 

2700 LSET ACTUAL*=MKI*(ACTUALX) 

2710 LSET ULTIM0t=MKI*(ULTIMOX) 

2720 NUMER0M 

2730 G0SUE 15500:REM - ESCRITURA CLIENTE/1 

2740 GOTO 2150 

Se vuelve a escribir, actualizado, el primer registro del fiche¬ 
ro de clientes para recordar el siguiente registro a grabar y el to¬ 
tal de los registros del fichero. A continuación, el control se pasa 
a la instrucción 2150, en donde se solicitan otros datos del teclado. 

El procedimiento CARGA se lleva al apéndice de Pascal y se 
incluye en los programas GESTION. Pasamos a comentar las ins¬ 
trucciones principales. 

borrado_pantal la; 

WRITELN(’LA CARGA PARTE CON EL NUMERO’,actual-1); 

Después de haber borrado la pantalla, se visualiza el número 
del primer registro , a grabar. 

IF actual>2 
THEN BE6IN 

SEEK(diente,PRED(actual)) ; 

GET(cliente); 

WRITELN(’EL REGISTRO ANTERIOR’, 

'ESCRITO ES EL SIGUIENTE’) 

■aseara; 

visualizacion; 

WRITELN; 

G0T0XY(0,20); 

WRITE(’PULSE <RETURN> PARA CONTINUAR’); 

END; 

En el caso de que se esté en fase avanzada de carga se lee 
el último registro grabado y se le visualiza en la pantalla, de modo 
que se pueda comprobar la posición. 

REPEAT 

borrado_pantalla; 


G0T0XY(0,20); 

WRITELN(’PARA TERMINAR RESPONDA "zzzz“\ 

’A LA SOLICITUD DEL NOMBRE DEL CLIENTE’); 

■aseara; 
sh:=’3’; 
x_pos:=13; 
y_pos:=4; 
teclado; 

nomi nati vo: =al -f a; 

IF nominativoO’zzzz’ 

THEN BEGIN 
IF actual>ultimo 
THEN BEGIN 

WRITE(’NO PUEDO CONTINUARLE HA SUPERADO’, 

’LA DIMENSION MAXIMA.PULSE<RETURN>’); 

READLN; 

EXIT(carga); 

END; 

Mediante REPEAT se inicia un bucle de instrucciones que se 
terminará cuando la variable NOMINATIVO contenga el valor 
"zzzz". El cursor se sitúa en la columna 31 de la línea 4 y luego el 
control se cede al procedimiento TECLADO. El valor restituido se 
almacena en la variable NOMINATIVO. 

Si no hemos terminado la carga comprobamos que no hemos 
superado las dimensiones previstas del fichero, en cuyo caso obli¬ 
gamos a la salida de la subrutina mediante la instrucción EXIT. 

t 

calculo; 

búsqueda; 

IF N0T fin 
THEN BEGIN 

WRITE(’ESTE CLIENTE YA EXISTE, NO PUEDO’, 

'INCLUIRLO. PULSE <RETURN>’); 

READLN; 

EXIT(carga); 

END; 

El procedimiento BUSQUEDA realiza la búsqueda del nombre 
correspondiente en el fichero de clientes y en el caso de que lo- 
encuentre pone a 1 (VERDADERO) la variable booleana FIN. Re¬ 
chazaremos la introducción de claves que existan ya en el fichero. 
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elíente:=nofflinativo; 

X_p05!=13¡ 
y_pos:=6 
teclado; 

direccion:=alía; 

A través del procedimiento TECLADO se introducen los da¬ 
tos correspondientes al campo de dirección. Luego se solicitan, 
de forma análoga, los otros campos. 

SEEK(indice,hash); 

GET(indice) 
colision:=indice A 

Se lee el registro actual del fichero de índice y el valor del 
único campo se almacena en la variable COLISION. 

indice*:=actual; 

SEEK(indice,hash); 

PUT(índice); 

Se escribe el registro de índice después de haberlo actuali¬ 
zado con el contenido de la variable ACTUAL. 

SEEK(el i ente,actual); 

PUT(cliente); 
actual;=succ(actual); 

Ahora actualizamos el fichero de clientes y luego hacemos lo 
mismo con el “cuenta-registros”. 

priuero:=actual; 
naxiiso: =ultino; 

SEEK(cliente.l); 

PUT(CLIENTE); 

Se actualiza y vuelve a escribir el registro 1 del fichero de 
clientes para recordar el siguiente registro a grabar y el total de 
los registros existentes en el fichero. 

END; (DE LA WITH CLIENTE*} 

END; (SI CLIENTE} 

UNTIL nominativo=’zzzz’ 


El bucle se repetirá a no ser que a la solicitud del nombre del 
diente se responda con “zzzz", en cuyo caso se sale del bucle y 
del procedimiento. 


Subrutina de lectura 


Permite leer los registros y visualizarlos en la pantalla; solici- 
i.i el número del primero y del último registro. La subrutina LISTA 
tiene el objeto de buscar el enésimo registro, siempre que se haya 
grabado; si el registro no existe, se activará la variable FIN. Se sale 
ile la subrutina pulsando la tecla <ESCAPE> cuando se ha visua¬ 
lizado el último registro. . 

La subrutina se lleva al apéndice en los programas GEbliON 
y ocupa las instrucciones 4000 a 4330. Veamos las instrucciones 
principales. 

4040 YP0S=20:XP0S=1 

4050 GOSUB 15800:REM —>P0SICI0NA EL CURSOR 
4060 PRINT "NUMERO DEL PRIMER REGISTRO:' 

Después de haber posicionado el cursor se pide el número 
del primer registro a visualizar; dicho número se incrementa en 1 
y se almacena en la variable INICIO%. De forma análoga se pide 
el número del último registro a grabar y este valor, incrementado 
en 1, se almacena en la variable ALT%. 

4210 GOSUB 11700:REM ->P0SICI0NA 
4220 IF FINE=1 THEN RETURN 

El control se pasa a la subrutina LISTA, que se encarga de bus¬ 
car el primer registro; si no lo encuentra activará la variable FIN 
y se saldrá de la subrutina. De no ser así: 

4240 GOSUB 500:REM ->B0RRAD0 DE PANTALLA 

4250 GOSUB 10000:REM -MASCARA 
4260 GOSUB 11000-.REM —>VISUALIZACION 

El registro se visualiza en la pantalla. Siguen instrucciones que 
permiten observar con comodidad la pantalla y luego suspender 
el examen de los demás registros o visualizarlos. 

El procedimiento LECTURA se lleva a los programas GESTION 
del apéndice de Pascal. Comentemos ahora las instrucciones prin¬ 
cipales: 
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PROCEDURE lectura 
BEGIN 

GOTOXY(0,20); 

MRITE('NUMERO DEL PRIMER REGISTRO: ’); 

ü_pos:=32; 

y_pos:=20; 

sh:=’ r j 

teclado; 

inicio:=pequeno+l; 

A través del teclado se solicita el número del primer registro 
a imprimir y dicho valor, incrementado en 1, se almacena en la va¬ 
riable INICIO. De forma análoga, se pide el número del último re¬ 
gistro a visualizar y dicho valor, incrementado en 1, se almacena 
en la variable STOP. 

lista; 

IF NOT fin 
THEN REPEAT 

El control se pasa al procedimiento LISTA, que, si no se en¬ 
cuentra el registro, pone a 1 (VERDADERO) la variable booleana 
FIN. Si se encuentra el registro: 

borradojantalla; 

mascara; 

visualizacion; 

GDTOXY(0,20); 
lista; 

WRITEt’<ESPACI0> PARA CONTINUAR,’, 

VESO PARA ACABAR’); 

READ(respuesta); 

Se visualiza el registro, se lee el registro siguiente y se da la 
posibilidad al operador de observar los datos en la pantalla y pro¬ 
seguir luego con la visión de los demás registros. 

UNTIL (respuesta=CHR$(27)) 0R (inicio>alt+l) 0R (fin); 

La visualización de los registros termina: 

• cuando el operador pulsa la tecla <ESCAPE>; 

• cuando se ha visualizado el último registro solicitado; 

• cuando se acaban los registros existentes en el fichero. 


Subrutina de modificación 

La subrutina de BASIC se lleva a los programas GESTION del 
■ ipéndice BASIC, desde la instrucción 8000 a la instrucción 8760. 

(,'omentamos las instrucciones principales, recordando que los co¬ 
mentarios se refieren a la gestión HASH; durante el examen de las 
otras estructuras, indicaremos las ocasionales diferencias. 

8070 PRINT "NUMERO DE REGISTRO:" 

8030 3W=1 

8090 XP0S=23:YP0S=20 

8100 GOSUB 1000:REM —>TECLAD0 

8110 INICI0y.=PEQUEK07.+l 

8120 GOS'JB 11700:REM —7P0SICI0NA 

8130 IF FIN=0 THEN GOTO 8210 

8170 YP0S=20:XP0S=1 

8180 GOSUB 15800:REM ->P0SICI0NA EL CURSOR 
81°0 INPUT "NO EXISTE ESTE REGISTRO,PULSE 
<RETURN}";RESPUESTA* 

8200 RETURN 

Se pide el nombre del cliente a través del teclado y la subru¬ 
tina de cálculo determina el número Hash, mientras que la subru¬ 
tina de búsqueda encuentra el registro. En el caso de que el nom¬ 
bre no se encuentre, se emitirá una señal acústica; si se encuentra: 

8220 GOSUB 10000:REM — >MASCARA 
8230 GOSUB 11000:REM ~>VISUALIZACI0N 
8240 YP0S=20:XP0S=1 

8250 GOSUB 15800: REM ->P0SICI0NA EL CURSOR 
8250 PRINT "PULSE <ESC> PARA MODIFICAR EL CAMPO 
0 (RETURN) PARA CONTINUAR" 

El registro se visualiza en la pantalla y el cursor se posiciona 
al comienzo de cada campo individual. El operador puede hacer 
dos cosas: 

• pulsar la tecla RETURN: el cursor se situará en el campo si¬ 
guiente; 

• pulsar la tecla ESCAPE: entonces será posible volver a es¬ 
cribir el campo en donde se encuentra el cursor. 

Las instrucciones principales relativas a la modificación del 
campo de dirección son: 
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8275 YP0B=6:XP0S=11 

8280 GOSUB 15800:REM —>P0SICI0NA EL CURSOR 
8290 GOSUB 15900:REM —>LECTURA CARACTER 
8300 IF ASC(CAR$)<>27 THEN GOTO 8380 
8310 YP0S=6:XP05=13 

8320 GOSUB 15800:REM —>POSICIONA EL CURSOR 

8330 PRINT " 

■ 

8340 SU=3 

8350 XP0S=13:YP0S=6 

8360 GOSUB 1000:REM —>TECLAD0 

8370 LSET INÍ=ALFAt 

Las instrucciones correspondientes a los otros campos son 
muy similares, aunque, por supuesto, se cambia el posicionamien- 
to del cursor. Al final, la subrutina sigue con: 

8750 GOSUB 15500:REM -ESCRITURA CLIENTE 
8760 RETURN 

En el apéndice de Pascal hemos llevado el procedimiento 
MODIFICACION al programa GESTION. Veamos las instrucciones 
principales: 

WRITE('NUMERO DEL RE6ISTR0:’); 

sh:’1’¡ 

x _pos:=18; 

y_pos:=20; 

teclado; 

inicio:=pequeno+l; 

j:=pequeno+l; 

lista; 

IF N0T fin 
THEN BE6IN 

Se pide el registro a través del teclado Si no se encuentra se 
emitirá una señal acústica, si se localiza: 

■aseara; 

visualizacion; 

GOTOXY(0,20); 

HRITE(’<ESC> PARA MODIFICAR,’, 

’(RETURN) PARA CONTINUAR’); 


El registro se visualiza en la pantalla, el cursor se posiciona 
,il comienzo de cada campo individual y el operador puede ha- 
( i m dos cosas: 

• pulsar la tecla RETURN: el cursor se posicionará sobre el 
campo siguiente; 

• pulsar la tecla ESCAPE: entonces será posible volver a es¬ 
cribir el campo en donde está situado el cursor. 

Veamos las instrucciones principales para la modificación del 
• Minpo de dirección: 

GOTOXY(13,6); 

READ(respuesta); 

IF respuesta=CHRi(27) 

THEN BEGIN 
GOTOXY(13,6); 

WRITE(’ 

sw:=’3’; 

x_pos:=13; 

y_pos:=6; 

teclado; 

diente*.direccion:=alfa; 

Las instrucciones correspondientes a los otros campos son si¬ 
milares a las anteriores y cambiará el posicionamiento del cursor. 
Al final del procedimiento sigue: 

SEEK(el i ente,j); 

PUT(cliente); 

Subrutina de borrado 

Llevamos la subrutina a los programas GESTION en el apén¬ 
dice del BASIC (instrucciones 9000/9280). Comentaremos sola¬ 
mente las instrucciones principales, recordando que los comen¬ 
tarios se refiren a la gestión HASH y que durante el comentario 
de las otras estructuras indicaremos las eventuales diferencias. 

9070 SW=1:XP0S=23:YP0S=20 
9080 GOSUB 1000:REM —>TECLAD0 
9090 INICI07.=PEQUEÑ07.+1 
9110 GOSUB 11700:REM —>TECLADG 
9120 IF FIN=! THEN GOTO 9250 



Solicita el nombre del cliente a borrar, luego el control se pasa 
a la subrutina CALCULO para la determinación del número Hash 
y, finalmente, a la subrutina BUSQUEDA para encontrar el registro. 
En el caso de que no se encuentre el nombre se activará la va¬ 
riable FIN y se indicará dicha circunstancia en la pantalla. Si se lo¬ 
caliza: 

9130 GOSUB 10000: REM -MASCARA 
9140 GOSUB 11000:REM —>VISUALIZACI0N 
9150 YP0S=20:XP0S=1 

9160 GOSUB 15B00:REM —>PQSICI0NA EL CURSOR 
9170 PRINT "¿QUIERE BORRARLO?(S/N)"; 

9180 GOSUB 15900:REM —>LECTURA CARACTER 

El registro se visualiza en la pantalla y luego, habida cuenta 
del peligro de la operación, se pide la confirmación del borrado. 

9190 1F CARÍ="S" 0R CAR$=V THEN GOTO 9210 

Si no se responde de forma afirmativa (con "S" o "s") se sale 
de la subrutina sin borrar el registro; en otro caso: 

9220 LSET TI$="C" 

9230 GOSUB 15500:REM -ESCRITURA CLIENTE 
9240 RETURN 

El campo timpo se modifica en C y luego se graba el registro. 
En el apéndice de Pascal y en los programas GESTION se lle¬ 
va el procedimiento BORRADO del que comentamos las instruc¬ 
ciones siguientes: 

NRITEC NUMERO DEL REGISTRO: ’); 

s*:=’r¡ 

x_pos:=18; 

y_pos:=20; 

teclado; 

inicio:=pequeno+l; 

j:=pequeno+l; 

lista; 

IF N0T fin 
THEN BEGIN 

Se pide el nombre del registro a borrar. En el caso de que no 
se encuentre la variable booleana FIN se pone a 1 (VERDADERO) 
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. le modo que se pueda indicar dicha circunstancia en la pantalla. 
I !n caso contrario: 

■aseara; 

visualizacion; 

B0T0XY(0,20); 

HRITE(’¿QUIERE BORRARLO?(S/N)’); 

READ(respuesta); 

El registro se visualiza en la pantalla y luego, dada la delica¬ 
deza de la operación, se solicita la confirmación correspondiente. 

IF respuesta INt’S’.’s’I 
THEN BEGIN 
cliente*.tipo:=’C’; 

SEEK(el i ente,j); 

PUT(cliente); 

END; 

Se modifica el campo tipo y luego se graba el registro. 


FICHEROS SECUENCIALES 

Sabemos que los ficheros secuenciales nos permiten el acce¬ 
so a un registro a condición de que se hayan procesado los even¬ 
tuales registros anteriores. Además no siempre es posible añadir 
otros registros a un fichero que se haya cerrado con anterioridad. 
Algunas versiones de BASIC han previsto una opción particular 
en la apertura del fichero (la opción APPEND) que tiene, precisa¬ 
mente, el objeto de añadir nuevos registros "a la cola”. El PASCAL 
UCSD no prevé dicha técnica. 

Los programas se han elaborado de modo que sigan lo más 
posible las reglas de la programación estructurada. Ello fue fácil 
para el Pascal y un poco más difícil con el BASIC, aunque hemos 
utilizado las instrucciones REM. Nos vimos obligados a utilizar un 
Pascal muy simple para poderlo transformar “de igual a igual" en 
BASIC; dicho de otro modo: no hemos pasado parámetros al cie¬ 
rre de los procedimientos. 

Hemos empleado registros estructurados de la forma sigui¬ 
ente: 

CLIENTE campo alfabético de 31 caracteres 

DIRECCION campo alfabético de 33 caracteres 
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CIUDAD campo alfabético de 15 caracteres 

TELEFONO campo numérico de 8 caracteres 
PREFIJO campo alfabético de 4 caracteres 


Programa SEC—GESTION 

El programa está subdividido en numerosas subrutinas y el 
cuerpo está reducido a lo más fundarqental; se presenta un menú 
y basándose en la respuesta dada se elige una de las cinco fun¬ 
ciones básic. carga de datos, lectura de datos, modificación/bo¬ 
rrado de datos y adición de registros “a la cola”. 

En BASIC el programa se lleva al apéndice con el nombre de 
SEC—GESTION y ocupa las instrucciones 220 a 290. 

220 60SUB 500:REM —>B0RRAD0 DE PANTALLA 

230 G0SUB 800:REM —>HENU 

240 0N QUEQUIERE G0SUB 2000,4000,6000,8000,9000 

250 IF QUEQUIERE09 THEN 60T0 220 

290 END 

Las dos primeras instrucciones tienen su propia explicación, 
porque hemos utilizado instrucciones REM. La instrucción 240 
cede el control a la instrucción 2000, si la variable QUEQUIERE 
contiene el valor 1; a la instrucción 4000, si la variable QUEQUIE¬ 
RE contiene el valor 2, y así sucesivamente. Si la variable QUE¬ 
QUIERE contiene valores superiores al 5, el control pasará a la ins¬ 
trucción 220 si este valor es diferente de 9 y, de no ser así, el pro¬ 
grama se cerrará. 

Las instrucciones de Pascal relativas al programa se llevan al 
apéndice en el programa SEC_GESTION y, como es habitual, co¬ 
mentamos algunas instrucciones: 

BEGIN 
menú; 

CASE que_quiere QF 

’l’: carga; 

’2’: nombre; 

’3’: lectura; 

’4': modificación; 

’5’: puesta en fila; 

END; 

END. 
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Nos parece que está bastante claro, ¿no? . 

Veamos ahora las diversas subrutinas siguiendo una cierta ló- 
. |ica, que es la de examinar antes las relativas a la carga de los 
datos, después las de lectura, luego las de modificación y borra¬ 
do y finalmente las de “puesta a la cola". 


Subrutina de lectura 

Permite leer los registros a partir del enésimo y hasta otro re- 

qistro determinado. „ 

En BASIC la subrutina se lleva al apéndice en el programa 

SEC_GESTION, desde la instrucción 4000 a la instrucción 4370. 

Como es habitual, comentamos las instrucciones más importantes. 

4035 OREN “I",41,"CLIENTES.DAT" 

Con dicha instrucción se abre, solamente como entrada, el fi¬ 
chero CLIENTES.DAT. 

4060 PRINT "NUMERO DEL PRIMER REGISTRO:" 

4070 SW=1 
4080 XP0S=32 
4090 YP0S=20 

4100 G0SUB 1000: REM —>TECLAD0 
4110 INICI0X=PEQUEÑ07.+1 

Se solicita el número del primer registro a imprimir y dicho 
valor se almacena en la variable INICIO%. Más adelante, en las ins¬ 
trucciones 4120/4190, se solicita el número del último registro a 
imprimir y dicho valor se almacena en la variable ALT/o. 

4210 G0SUB 11700:REM ->P0SICI0NA 
4220 IF FIN=1 THEN THEN GOTO 4340 

La subrutina POSICIONA busca el primer registro a imprimir 
y, en el caso de que no se encuentre, activará la variable FIN y 
sale de la subrutina. De no ser así: 

4240 G0SUB 500:REM —>BORRADO DE PANTALLA 
4250 G0SUB 10000:REM ->MASCARA 
4260 G0SUB 11000:REM ->VISUAL12ACI0N 
4270 YP0S=20:XP0S=1 

4280 G0SIJB 15800:REM -iPOSICIONA EL CURSOR 
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4290 GOSUB 11500:REM —>LISTA 
4300 PRINT "(ESPACIO) PARA SEGUIR,(ESO PARA 
TERMINAR" 

4310 RESPUESTA$=INPUTí(1) 

En la pantalla se visualiza todo el registro y en la última línea 
se escribe un mensaje y se espera la respuesta. De este modo se 
tiene la posibilidad de observar la pantalla y luego decidir si de¬ 
sea ver los siguientes registros o terminar; si pulsa la barra espa¬ 
dadora se visualizarán los registros sucesivos (si existen) y si se 
pulsa la tecla <ESCAPE> se suspende la visualización de los re¬ 
gistros. 

4320 IF ASC(RESPUESTA)=27 0R FIN=1 OR INICIO*) 

ALTX+I THEN GOTO 4340 
4330 GOTO 4230 

La impresión de los registros queda suspendida en los casos 
siguientes: 

• si el operador ha pulsado la tecla ESCAPE, 

• si no hay otros registros en el fichero (EOF), 

• si se ha realizado la visualización del último registro indi¬ 
cado por el operador. 

En otro caso se prosigue la visualización de los demás regis¬ 
tros, cediendo el control a la instrucción 4240. 

El procedimiento LECTURA se lleva al apéndice reservado al 
Pascal, en el programa SEC—.GESTION. Comentamos las instruc¬ 
ciones principales: 

HRITE<’NUMERO DEL PRIMER REGISTRO: ’); 

sn:=’1’; 

x_pos:=32¡ 

y_pos:=20j 

teclado; 

i nicio:=pequeno; 

Se solicita el número del primer registro a visualizar; el valor 
correspondiente se almacena en la variable INICIO. A continua¬ 
ción se solicita el número del último registsro a imprimir, cuyo va¬ 
lor se almacena en la variable ALT. 

posiciona; 

IF N0T fin 
THEN REPEAT 


borradojantalla; 

«aseara; 

visualización; 

60T0XY(0,20); 

6ET(cliente); 
inicio:=inicio+l; 

HRITE(’<ESPACI0> PARA SEGUIR,’, 

’(ESC) PARA TERMINAR’); 

READ(respuesta); 

UNTIL (respuesta=CHR*(27)) 

0R (inicio)alt) 

0R (EOF(cliente)); 

La subrutina POSICIONA busca el primer registro a visualizar; 
::i dicho registro no existe se activará la variable booleana FIN y 
•:o sale de la subrutina. De no ser así, el registro se visualizará en 
l,i pantalla. Se imprime un mensaje y se espera la respuesta para 
, lar la posibilidad al operador de observar a su voluntad y luego 
decidir si seguir con la visualización de los demás registros (pul- 
:;,i la barra espaciadora) o si interrumpir la subrutina (pulsa la te¬ 
cla de escape). La visualización de los demás registros se suspen¬ 
derá en el caso de que: 

• el operador haya pulsado la tecla <ESCAPE>, 

• no haya otros registros en el fichero (EOF), 

• se haya visualizado el último registro indicado por el ope¬ 
rador. 

t 

Subrutina POSICIONA 


Esta subrutina lee registros, a partir del primero, hasta que en¬ 
cuentra el deseado. En el caso de que no encuentre el registro 
dará la indicación oportuna a través de la variable FIN. 

En el apéndice de BASIC, la subrutina está incluida en el pro¬ 
grama SEC_GESTION, desde la instrucción 11700 a la instrucción 

11850. 

11750 NUMER0X=NUMER0%+1 

11760 IF NUMERODINICIO'Í THEN 11830 

11770 GOSUB 15000:REM —>LECTURA CLIENTE 

11780 IF EOF(1) THEN GOTO 11830 

11790 IF NUMER07.=INICI0X THEN GOTO 11810 
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11800 GOTO 11740 
11810 FIN=0 
11820 RETURN 
11830 FIN=1 

Se llama a la subrutina de lectura del cliente hasta que: 

• se haya encontrado el registro correspondiente; 

• se haya llegado al final del fichero, en cuyo caso se pone 
la variable FIN a 1; 

• NUMERO% sea superior a INICIO%, en cuyo caso se pone 
la variable FIN a 1. 

En Pascal, el procedimiento se lleva al apéndice en el pro¬ 
grama SEC—.GESTION. 

x:=0; 

REPEAT 

x:=x+l; 

IF x<inicio then GET (diente); 

UNTIL (x=inició) 

0R EOF (diente); 
fin:=EQF(el i ente); 

Se seguirán leyendo los registros del fichero de clientes has¬ 
ta que el valor de X corresponda al valor de INICIO o bien se haya 
llegado al final del fichero. 


Subrutina de carga 

Para el BASIC la subrutina se lleva al apéndice a partir de la 
instrucción 2000 y hasta la instrucción 2720. Procedamos a comen¬ 
tar las instrucciones principales: 

2040 OF'EN "O", 1,"CLIENTES.DAT" 

Hemos abierto el fichero; luego introduciremos los datos de 
nuestros clientes. También en el caso de la carga de datos ten¬ 
dremos que llegar a su final. Hemos establecido que al introducir 
desde el teclado el valor "zzzz" se pretende acabar la carga, con¬ 
siderando como muy improbable que haya un cliente con dicho 
apellido. 
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2060 G0SUB 13500:REN --'/INTRODUCCION DATOS 
2070 1F N0MINATIV0t="zzzz' THEN 60T0 2700 
2590 CLÍ=CLIENTEÍ 
2600 IN$=DIRECCI0N* 

2610 C1Í=CIUDADÍ 
2620 TE$=ALFA* 

2630 PR$=PREFIJ0$ 

2670 60SUB 15500:REM -ESCRITURA CLIENTE 
2680 GOTO 2050 
2700 CIOSE 1 
2710 RETURN 


Las subrutinas llamadas en las instrucciones 2680 y 2670 se co¬ 
mentarán a continuacaión y el comentario se adjuntará coni la in¬ 
dicación de para qué sirven. Desde la instrucción 2590 a la ms- 
li ucción 2630, según puede observarse en el apéndice, los valo¬ 
res introducidos a través del teclado se transfieren a los campos 
del registro. Si a la solicitud del nombre del cliente se responde 
con “zzzz”, el control se cede a la instrucción 2700, en donde se 
cierra el fichero y luego se entra de nuevo en la instrucción que 

efe< En Pascal utilizaremos el procedimiento CARGA que se lleva 
al apéndice precisamente en el programa SEC_GESTION. Dicho 
procedimiento es muy sencilli, pero, no obstante, comentaremos 
alounas instrucciones. 


RENRITEldiente, 'diente, dat’); 

REPEAT 

solicitudes: 

IF noBinativoO’zzK’ THEN PUT(diente); 
UNTIL nominativo=’zzzz'; 


Tenga presente que el control se cede al procedimiento SO¬ 
LICITUDES, que se encarga de requerir información a través del 
teclado; la subrutina correspondiente se comentará más adelante. 
Si a la solicitud del nombre del cliente se responde con zzzz se 
saldrá de la subrutina CARGA y se cierra el fichero; de no ser asi 
se arabará el registro y se volverán a pedir datos. 


Subrutina SOLICITUDES 

Ésta subrutina borra la pantalla, presenta la máscara de soli¬ 
citud dé datos (en la práctica, los nombres de los campos) y pide 

107 



los datos correspondientes al nombre, a la dirección, a la ciudad, 
al número de teléfono y al prefijo correspondiente. Hace uso de 
la subrutina TECLADO, ya comentada, para comprobar tanto los 
datos alfabéticos como los numéricos. 

La subrutina BASIC se lleva al apéndice desde la línea 13500 
a la 13870 del programa SEC_GESTION. Como es nuestra costum¬ 
bre, comentaremos las instrucciones principales: 

13550 GOSUB 500 ->B0RRAD0 DE PANTALLA 

13560 YP0S=20:XP0S=1 

13570 GOSUB 15B00:REN —>POSICIONA EL CURSOR 
13580 PRINT "PARA TERMINAR,A LA SOLICITUD DEL 
NOMBRE DEL CLIENTE RESPONDA 'zzzz’" 

13590 GOSUB 10000:REM —>HASCARA 
13600 XP0S=13:YP0S=4 
13610 SN=3 

13620 GOSUB 1000:REM —>TECLAD0 
13630 N0MINATIV0$=ALFA$ 

13640 IF N0MINATIV0$="zzzz" THEN RETURN 
13650 CLIENTE*=N0MINATIV0Í 

Borramos la pantalla y posicionamos adecuadamente el cur¬ 
sor, de modo que la subrutina MASCARA visualice en la pantalla 
la explicación de lo que debe introducirse a través del teclado. 
La instrucción 13620 cede el control a la subrutina TECLADO y 
puesto que hemos establecido en tres el valor de la variable SW 
se deberán suministrar datos alfabéticos. Solamente después de 
haber pulsado RETURN se produce el reenvío de la subrutina del 
teclado y se ejecuta la instrucción 13630; posteriormente se com¬ 
prueba si se ha introducido el valor “zzzz", en cuyo caso se termi¬ 
na la carga; en caso contrario, el contenido de la variable ALFA$ 
se transfiere a la variable CLIENTE$ 

13660 SW=3 
13670 XP0S=13 
13680 YP0S=6 

13690 GOSUB 1000:REM —¡TECLADO 
13700 DIRECCI0N$=ALFA$ 

Con estas instrucciones hemos introducido desde el teclado 
la dirección del cliente. A continuación hay otras instrucciones, 
muy similares a éstas, para introducir los otros campos del registro. 
En Pascal el procedimiento SOLICITUDES se introduce en el 


programa SEC—GESTION que se lleva al apéndice. Procedamos 
,i comentar algunas instrucciones: 

WRITELN<’PARA FINALIZAR LA CARGA,RESPONDA’, 

’"zzzz" A LA PETICION DE CLIENTE’)-, 

■aseara; 
xjjos: =13; 
y_pos:=4; 
st»:=’3’; 
teclado; 

nominativo¡=aHa; 

IF noainativoO’zzzz’ 

THEN BEGIN 
NITH cliente" 

DO BEGIN 

diente:=noainativo; 

De modo similar se solicitan la dirección, la ciudad, el teléfo¬ 
no y el prefijo. 


Subrutina LISTA 

Sigue la lectura del registro y, en el caso de que se verifique 
el final del fichero, pone a 1 la variable FIN. 

La subrutina BASIC está contenida en el apéndice en el pro¬ 
grama SEC—GESTION desde la instrucción 11500 a la instrucción 

i 1620. . 

En PASCAL no se activa ningún procedimiento porque las ins¬ 
trucciones están comprendidas ya en el procedimiento LECTURA. 


Subrutina NOMBRE 

Muestra el contenido de los registros a partir de un nombre 
de cliente hasta otro nombre de cliente, indicados ambos por el 
usuario. Después de la visualización del registro siempre será po¬ 
sible renunciar a la visualización de los sucesivos registros con la 
pulsación de la tecla <ESCAPE>. 

En BASIC, la subrutina está contenida en el apéndice en el 
programa SEC—GESTION, instrucciones 6000/6410. Como es 
nuestra costumbre, comentamos las instrucciones principales: 

6040 0PEN V,t, "dientes.dat" 
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El fichero CLIENTES.DAT se abre en entrada, es decir en Input. 

6090 PRINT "NOMBRE DEL PRIMER CLIENTE:“ 

6100 SW=3 
6110 XP0S=32 
6120 YP0S=20 

6130 GOSUB 1000:REM —>TECLAD0 
6140 POSICIGNí=ALFAt 

V. 

Se solicita el nombre del primer cliente a imprimir, que se al¬ 
macena en la variable PARTIDA$. De manera similar se solicita el 
nombre del último cliente a imprimir y dicho nombre se almace¬ 
na en la variable TERMINO$. 

6240 &0SUB 13000:REM —>CLAVE 
6250 IF FIN=1 THEN GOTO 6380 

La subrutina CLAVE, que se comentará dentro de poco, tiene 
el cometido de buscar el nombre del primer cliente; si no lo en¬ 
cuentra, activará la variable FIN y se saldrá de la subrutina NOM¬ 
BRE. 


6260 GOSUB 500:REM ——>B0RRAD0 DE PANTALLA 
6270 GOSUB 10000:REM —>MASCARA 
6280 GOSUB 11000:REM —>VISUALIZACI0N 
6290 YP0S=20:XP0S=1 

6300 GOSUB 15800:REM —>POSICI0NA EL CURSOR 
6310 PRINT DESPACIO) PARA SEGUIR,<ESC> PARA 
CONTINUAR* 

En la pantalla se visualiza el registro y en la última línea apa¬ 
recerá un mensaje con espera de respuesta. De este modo se pue¬ 
de observar con comodidad la presentación visual y luego, pul¬ 
sando la barra espadadora, se tiene la posibilidad de ver los re¬ 
gistros sucesivos y pulsando la tecla <ESCAPE> se suspende la 
visualización de los registros. 

6320 GOSUB 15900:REM —>LECTURA CARACTER 
6330 IF ASC(CAR$)=27 THEN GOTO 6380 
6340 IF TERMIN0t=CL$ THEN GOTO 6380 
6350 IF E0FÍ1) THEN GOTO 6380 
6360 GOSUB 150Ü0:REM —>LECTURA CLIENTE 
6370 GOTO 6260 


Se sale de la subrutina: 

• si se pulsa la tecla <ESCAPE>; 

• si el nombre del cliente visualizado corresponde al ultimo 
nombre que se quería imprimir; 

• si no hay otros registros en el fichero. 

De no ser así, se lee un nuevo registro y se cede el control a 

^En Pascal, el procedimiento NOMBRE se lleva al apéndice en 
„1 programa SEC—GESTION. El fichero CLIENTES.DAT se abre 
,'orno entrada y luego se solicita el nombre del primer cliente a 
loor, almacenándolo en PARTIDA; finalmente se solicita ell non- 
, , #!.■ . . _f^ on la vanahlfi Tr.KMlNU. 


nominativo:=partida; 

clave; 

IF N0T fin 
THEN REPEAT 

borrado_pantalla; 

mascara; 

visualización; 

fuera:=cliente A .cliente=termino; 

G0T0XY(0,20); 

GET(cliente); 

NRITE(’<ESPACI0> PARA SE6UIR,’, 
VESO PARA TERMINAR’); 
READ(respuesta); 

UNTIL (respuesta)=CHR$(27) 

0R (fuera) 

0R EOF(cliente); 


El procedimiento CLAVE se encarga de encontrar el primer 
nombre. Si no lo encuentra pone a 1 (VERDADERO) la variable 
booleana FIN. Si encuentra el primer nombre activara un bucle de 
instrucciones controlado por REPEAT UNTIL. Con dichas instruc¬ 
ciones se visualiza en la pantalla el registro y se da la posidlidad 
al operador de visualizar los registros sucesivos o de interrumpir 
o hll P Pulsando la tecla <ESCAPE». El bucle se interrumpirá: 


• si el operador pulsa la tecla <ESCAPE>; 

• si se ha visualizado el último nombre deseado, 

• si se han acabado los registros del fichero (EOf). 
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Es interesante la instrucción FUERA := CLIENTES ".CLIEN- 
TE=TERMINO, en donde el nombre del cliente se compara con el 
contenido de la variable TERMINO; si los dos valores son diferen¬ 
tes, FUERA toma el valor de FALSO y si los dos valores son igua¬ 
les, FUERA toma el valor de VERDADERO. 


Subrutina CLAVE 

Esta subrutina examina los registros desde el inicio del fiche¬ 
ro y busca el nombre del cliente que corresponde al contenido 
de la variable NOMINATIVO. En el caso de que el cliente no se 
encuentre se activará la variable FIN. 

En BASIC la subrutina se lleva al apéndice, desde la línea 

13000 a la 13080 del programa SEC_.GESTION. Consideramos que 

dicha subrutina está suficientemente documentada. 

En Pascal, el procedimiento CLAVE se lleva al apéndice en 
el programa SEC—.GESTION. El núcleo del procedimiento consis¬ 
te en un bucle de instrucciones que comienza con una instruc¬ 
ción REPEAT y termina con la instrucción UNTIL(CLIENTE=NO¬ 
MINATIVO) OR EOF(CLIENTES). La variable FIN se pone a cero 
(FALSO) si hay todavía registros en el fichero, y, de no ser así, se 
pone a 1 (VERDADERO). 


Subrutina MODIFICACION 

Sirve tanto para modificar como para borrar registros. En los 
ficheros secuenciales no es posible modificar el estado de un fi¬ 
chero si no se crea otro nuevo que comprenda las modificacio¬ 
nes. El nuevo fichero tiene como nombre externo CLIENTES.NOV. 
Al comienzo de la subrutina se abren los ficheros, el primero en 
lectura (entrada) y el segundo en escritura (salida, es decir, se tra¬ 
ta de un fichero nuevo), 

Más adelante se leen todos los registros del fichero de clien¬ 
tes. Cada registro se presenta en la pantalla y el operador tiene 
la posibilidad de dejarlo intacto, modificarlo o suprimirlo. Si el re¬ 
gistro debe volver a copiarse se escribirá en el fichero de salida 
(output). Si el registro debe suprimirse no se escribe en el nuevo 
fichero, pero antes de ejecutar esta función se solicita la confirma¬ 
ción correspondiente al operador. Si el registro ha de modificarse 
es posible cambiar cualquier campo. El cursor se posiciona al co¬ 
mienzo del campo, y si el operador quiere modificarlo, pulsará la 
tecla <ESCAPE>, luego escribirá los nuevos valores, concluyen¬ 
do con la tecla <RETURN>. Si no quiere modificar el campo, el 
operador pulsará la tecla <RETURN>. 


En BASIC la subrutina se lleva al apéndice y ocupa las ins¬ 
trucciones 8000/8830 del programa SEC—GESTION. Procedemos 
n comentar las instrucciones principales: 

8040 OPEN "I",1,"CLIENTES.DAT" 

8050 OPEN "0",2,"CLIENTES.NOV 

El fichero CLIENTES.DAT se abre como entrada (Input), mien- 
im:; se crea un nuevo fichero, de nombre CLIENTE.NOV, que con- 
li*ndrá la nueva situación de clientes. 

8070 IF EOF (1) THEN GOTO B7J0 

8080 GOSUB 15000:REM —>LECTURA CLIENTE 

8090 GOSUB 500:REM ->B0RRAD0 DE PANTALLA 

8100 REM 

8110 GOSUB 10000:REM —>MASCARA 
8120 GOSUB 11000:REM —>VISUALIZACI0N 
8130 YP0S=20:XP0S=1 

8140 GOSUB 15800:REM —>P0SICI0NA EL CURSOR 
8150 PRINT "M)QDIFICA,B)0RRA,R)EC0PIA"; 

Cada registro se presenta en la pantalla; podrá copiarse en el 
nuevo fichero si se da una respuesta "R", se modificará si se res¬ 
ponde "M” y, finalmente, se suprimirá si se responde "B". Si se res- 
I .onde con caracteres diferentes a los indicados, se repetirá la so¬ 
licitud. 

Si quiere modificar el registro se ejecutarán las instrucciones 
8210 a 8270. En la práctica se ejecutan instrucciones similares para 
cada campo del registro. Por ejemplo, para poder modificar el 
campo de la dirección del cliente se hace: 

8230 YP0S=6:XP0S=11 

8240 GOSUB 15800:REM -->P0SICI0NA EL CURSOR 
8250 GOSUB 15900:REN —>LECTURA CARACTER 
8260 IF ASC(CAR*)<>27 THEN GOTO 8340 

Hemos colocado el cursor junto al campo de la dirección y 
si el operador responde con la tecla <ESC> se proseguirá con 
las instrucciones siguientes; de no ser así, continúa con el examen 
del campo siguiente: 

8270 YP0S=6:XP0S=13 

82B0 GOSUB 15800:REM ->P0SICI0NA EL CURSOR 
8290 PRINT 1 
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El cursor se ha posicionado en el campo a modificar y la an¬ 
terior situación del campo se elimina de la pantalla. 

8300 SW=3 

8310 XP0S=13:YP0S=6 

8320 6GSUB 1000:REM —>TECLAD0 

8330 INt=ALFA$ 

La subrutina TECLADO restituye.en la variable ALFA$la nue¬ 
va dirección, que se transfiere a la variable IN$. Después de ha¬ 
ber visualizado los demás campos, el registro se grabará y luego 
se vuelven a leer y visualizar otros registros con el empleo de las 
dos instrucciones siguientes: 

8710 WRITE #2,CLMN$,CI*,TEt,PR$ 

8720 GOTO 8070 

Si el registro se recopia tal como está en el nuevo fichero se 
ejecutarán las instrucciones desde 8700 a 8720. Si se anula el re¬ 
gistro se ejecutan las instrucciones desde 8770 hasta 8820. 

8780 G0SUB 15800:REM ->P0SICI0Nft EL CURSOR 
B790 PRINT "oDESEA BORRARLO? (S/N) 

8800 G0SUB 15900:REM —>LECTURA CATACTER 
8810 IF CARÍ=V 0R "S" THEN GOTO 8070 
8820 GOTO 8700 

En el caso de que se responda con "S" o "s" no se graba el 
registro, sino que se lee el siguiente del fichero de entrada; si no 
se responde de forma afirmativa, el registro se grabará sin ningu¬ 
na modificación. Cuando acabemos los registros del fichero de en¬ 
trada (Input) se ejecutan las instrucciones siguientes: 

8730 CL0SE 1 
8740 CL0SE 2 
8750 RETURN 

Al apéndice de Pascal llevamos el procedimiento MODIFICA¬ 
CION, introducido en el programa SEC—GESTION. Procedamos a 
comentar las instrucciones principales: 

RESET (cliente,’cliente.dat’); 

REHRITE(actual izacian,’cliente.nov’); 
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Se abre el fichero CLIENTES.DAT como entrada, mientras que 
■ 'orno salida (Output) se abre el nuevo fichero CLIENTES.NOV. Las 
instrucciones sucesivas se repetirán varias veces hasta que no se 
hayan acabado los registros del fichero de entrada. 

borrado_pantalla; 

mascara; 

visualizacion; 

G0T0XY(0,20); 

WRITE(’¿M)odificacion,C)ancelar,R)ecopia?:'); 

READ(respuesta); 

Cada registro se visualizará en la pantalla y el operador podrá: 

• recopiarlo en el nuevo fichero, si responde con R; 

• borrarlo, si responde con B; 

• modificarlo, si responde con M. 

En el caso de que no se responda de manera adecuada, se 
volverá a hacer la solicitud correspondiente. Si se quiere borrar 
el registro, se solicitará la confirmación al operador, y si este úl¬ 
timo da una respuesta negativa, el registro se llevará al fichero 
ACTUALIZACION. 


t 
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APENDICE BASIC 


ACCESO ALEATORIO 
PREPARACION 

100 reh mttnttnttmntmtmumumt 
110 REH t RAN_PREPARA » 

120 reh tmmtmnmmuttttntmmm 

130 REH 

140 FICHERO*=“CLIENTES.DAT" 

140 0PEN 'R",1,FICHER0Í,8B 
170 INPUT ‘¿DE CUANTOS REGISTROS ESTARA C0HPUEST0 
EL FICHERO?:"iULTIHO 
180 PRIHER0=2 

190 FIELO 1,2 AS PRIHER0$,2 AS ULTIMO* 

200 LSET PRIHERO*=MKI*(PRIHERO) 

210 LSET ULTIMO*=HKI*(ULTIMO+1) 

220 PUT #1,1 

230 FIELO 1,31 AS CLIENTE*,33 AS DIRECCION»,15 AS 
CIUDAD»,4 AS TELEFONO»,4 AS PREFIJO»,1 AS TIPO» 
250 LSET CLIENTE»=“" 

240 LSET DIRECCION*^* 

270 LSET CIUDADÍ=" 

280 LSET TELEF0N0»="0* 

290 LSET PREFIJ0*="0000" 

300 LSET TIPO*=‘ * 

320 FOR n =2 TO ULTIHO+1 
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330 PUT II,XX 
340 NEXT XX 
350 CLOSE «1 
400 END 


ACCESO ALEATORIO 
6ESTI0N 

ioo reh mnnntmnnmmttmtmn 

110 REH * RANJESTION I 

120 reh mmtmmmmmmmmttt 

130 REH 

140 OPEN “R", 1,"CLIENTES.DAT",88 
170 NUHER0X=1 

180 FIELO 1,2 AS ACTUAL»,2 AS ULTIHO* 

190 GOSUB 15000:REH ->LEE CLIENTE/1 

200 ACTUALX=CVI(ACTUAL») 

210 ULTIHOX=CVI(ULTIMO*) 

220 GOSUB 500:REH ->BORRADO DE PANTALLA 

230 GOSUB 800:REH->HENU 

240 ON QUEQUIERE GOSUB 2000,4000,6000,8000,9000 
250 IF QUEQUIERE 09 THEN GOTO 220 
270 CLOSE 1 
290 END 

500 REH ::::::::::::::::::::::::::: 

510 REH:: BORRADO DE PANTALLA :: 

520 REH :::::::::::.:::::::::: 

530 REH 

540 CLS 

550 RETURN 

800 REH :::::::::::: 

810 REH :: HENU :: 

820 REH :::::::::::: 

830 REH 

840 PRINT “1 --> CARGA DE DATOS" 

850 PRINT 

860 PRINT "2 --> LECTURA DE REGISTROS" 

870 PRINT 


900 PRINT "4 --> HODIFICACIQN DE UN REGISTRO’ 
VIO PRINT 

920 PRINT “5 --> BORRADO DE UN REGISTRO" 

930 PRINT 

940 PRINT "9 --> FINAL DE PROGRAHA" 

950 PRINT. 

960 PRINT "?":RESPUESTA»=INPUT»(1):QUEQUIERE= 
ASC(RESPUESTA»)-ASC(“O") 

980 RETURN 

1000 REH ::::::::::::::: 

1010 REH :: TECLADO :: 

1020 REH ::::::::::::::: 

1030 REH 
1040 ALFA*="‘ 

1050 GOSUB 15800:REM —>POSICIONA EL CURSOR 
1060 GOSUB 15900:REH —X.ECTURA DEL CARACTER 
1070 IF ASC(CAR»)=13 THEN GOTO 1210 
1080 IF ASC(CAR»)<>8 THEN GOTO 1310 

1090 REH - 

1100 REH -- TECLA DE RETORNO -- 

1110 REH - 

1120 IF LEN(ALFA*)>1 THEN ALFAt=LEFT*(ALFA*, 
LEN (ALFAt)-l! ELSE ALFAt="" 

1130 REH - 

1140 REH - IMPRESION DEL CAMPO -- 

1150 REM - 

1160 GOSUB 15800:REH —>POSICIONA EL CURSOR 
1170 PRINT ALFA*;' *; 

1180 GOSUB 15800:REH —>POSICIONA EL CURSOR 
1190 PRINT ALFA* 

1200 GOTO 1060 

1210 REM ::::::::::::::::::::: 

1220 REM :: NUEVA ENTRADA :: 

1230 REM ::::::::::::::::::::: 

1240 IF SW=3 THEN RETURN 
1250 Gl=0 

1260 FOR X=1 TO LEN(ALFA») 

1270 G#=E#*10+ASC(HID*(ALFA»,X,1))-48 
1280 NEXT X 

1290 IF SW=1 THEN PEQUERO»=CSNG(GI) ELSE 
6RANDE#=6# 
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1300 RETURN 

1310 REM - 

1320 REH - CARACTER NORMAL - 

1330 REH - 

1340 IF SH=3 THEN GOTO 1450 

1350 REM - 

1360 REM -- CARACTER NUMERICO -- 

1370 REM - 

1380 IF CAR*<“0" OR CAR$>“9" THEN GOTO 1400 "" 

1390 GOTO 1490 

1400 REM - 

1410 REM -- ERROR DE TECLA -- 

1420 REM - 

1430 PRINT CHR$(7); 

1440 GOTO 1060 

1450 REM - 

1460 REM -- CARACTER ALFABETICO -- 

1470 REM--- 

1480 IF CAR*<" ■ OR CAR*>"z“ THEN GOTO 1400 
1490 ALFA*=ALFA*+CAR* 

1500 GOTO 1130 

2000 REM :::::::::::::::::::::: 

2010 REM :: CARGA DE DATOS :: 

2020 REH :::::::::::::::::::::: 

2030 REM 

.2040 GOSUB 500:REM —>BORRADO DE PANTALLA 

2050 PRINT "LA CARGA PARTE CON EL NUMERO:"; ACTUAL'/.-1 

2060 IF ACTUALK3 THEN GOTO 2140 

2070 NUHEROX=ACTUALM 

2080 FIELD 1,31 AS CLt,33 AS INt,15 AS CI$, 

4 AS TE»,4 AS PRÍ,1 AS TI* 

2090 GOSUB 15000:REM —>LECTURA DE CLIENTE 
2100 PRINT “EL REGISTRO ESCRITO ES EL SIGUIENTE:” 
2110 GOSUB 10000:REM —>MASCARA 
2120 GOSUB 11000:REM --MSUALIZACION 
2130 PRINT 

2140 INPUT “PULSE <RETURN> PARA INICIAR LA CARGA"; 

RESPUESTAS 
2150 REM 

2155 FIELD 1,31 AS CLÍ,33 AS IN$,15 AS CI*, 

4 AS TES,4 AS PRÍ,1 AS Til 

120 


2160 GOSUB 500:REM ->BORRADO DE PANTALLA 

2170 YP0S=20:XP0S=1 

2180 GOSUB 15800:REM —>POSICIONA EL CURSOR 
2190 PRINT “PARA ACABAR LA CARGA,A LA SOLICITUD 
NOMBRE DEL CLIENTE TECLEE ’zzzz’" 

2200 GOSUB 10000:REM —>MASCARA 
2210 XP0S=13:YP0S=4 
2220 SM=3 

2230 GOSUB 1000:REM —>TECLADO 
2240 NOMINATIVO*=ALFA$ 

2250 IF NQMINATIVO*="zzzz" THEN RETURN 
2260 IF ACTUALXMJLTIMOX THEN INPUT "NO PUEDE 
CONTINUAR.SE HA SUPERADO LA DIMENSION DEL 
FICHERO 

2270 GOSUB 12000:REM —>CALCULO 
2280 GOSUB 13000:REM —>BUSQUEDA 
2290 IF FIN=1 GOTO 2320 
2230 INPUT ‘ESTE CLIENTE YA EXISTE. NO PUEDO 
INTRODUCIRLO.PULSE <RETURN>";RESPUESTA* 
2310 RETURN 

2320 CLIENTE*=NOMINATIVO* 

2330 SN=3 
2340 XP0S=13 
2350 YP0S=6 

2360 GOSUB 1000:REM —>TECLADO 
2370 DIRECCION$=ALFA$ 

2380 SH=3 
2390 XP0S=13 
2400 YP0S=8 

2410 GOSUB 1000:REM —>TECLADO 

2420 CIUDAD$=ALFA 

2430 SW=2 

2440 XF'GS= 13 

2450 YP0S=10 

2460 GOSUB 1000:REM —>TECLADO 
2470 TELEF0NQ#=6F;ANDE# 

2480 SW=3 
2490 S=XPQS=13 
2500 YP0S=12 

2510 GOSUB 1000:REM —>TECLADC 
2520 PREFIJOt=ALFA$ 


t 
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2530 TIPQÍ=“ 11 

2540 GOSUB 15200:REM —>LECTURñ HA3H 
2550 C0LISI0NX=CVI(HASHÍ) 

2560 LSET HASH$=MK 1 í (ACTUAL*/.) 

2570 GOSUB 15700:REM —> ESCRITURA HASH 
2580 FIELO 1,31 AS CLí, 33 AS INÍ.15 AS CI», 

4 AS TE», 4 AS PRt, 1 AS TU, 2 AS COt 
2590 LSET CL»=CLIENTEí 

2600 LSET INt=DIRECC10N» ■v. 

2610 LSTE CIÍ=CIUDAD» 

2620 LSET TE$=MKI$(TELEFONO#) 

2630 LSET PR$=PREFIJO* 

2640 LSET TIÍ=TIPO« 

2650 LSET CQ$=MKIÍ(COLISION’/.) 

2660 NUMERQX=ACTUALX 

2670 GOSUB 15500:REM -^ESCRITURA CLIENTE 

2680 ACTUAL7.=ACTUALX+1 

2690 FIELO 1,2 AS ACTUAL$,2 AS ULTIMO* 

2700 LSET ACTUAL$=MK I» (ACTUAL - /.) 

2710 LSET ULTIMO$=MKI$(ULTIMOX) 

2720 NUMERO'/.=! 

2730 GOSUB 15500:REM -ESCRITURA CLIENTE/1 
2740 GOTO 2150 
2750 REM 

4000 REM . ::::::::::::::::::::::::::::: 

4010 REM :: LECTURA CON EL NUMERO DE REGISTRO 
4020 REM :::::::::::::::::::::::::::::::::::::: 
4030 REM 

4040 YP0S=20:XP0S=1 

4050 GOSUB 15600:REM ->POSICIONA EL CURSOR 
4060 PRINT "NUMERO DEL PRIMER REGISTRO:" 

4070 SW=1 
4080 XF'0S=32 
4090 YP0S=20 

4100 GOSUB 1000:REM —>TECLADO 
4110 INICIAX=PEQUEhO’/.+1 
4120 YP0S=20:XP0S=1 

4130 GOSUB 15800:REM —OPOSICIONA CURSOR 
4140 PRINT "NUMERO DEL ULTIMO REGISTRO:" 

4150 SW=1 
4160 XP0S=32 
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4170YP0S=20 

4180 GOSUB 1000:REM —>TECLADG 
4190 ALTX=PEQJEñ0X+1 

4200 IF ALTX>ACTUAL-1 THEN ñLT'/.=ACTUAL'/.-1 
4210 GOSUB 11700:REM —>POSICIONA 
4220 IF FINE=1 THEN RETURN 
4230 REM 

4240 GOSUB 500:REM ——)BORRADO DE PANTALLA 
4250 GOSUB 10000:REM —>MASCARA 
4260 GOSUB !1000:REM -->VISUALIZACION 
4270 YP0S=20:XPQS=1 

4280 GOSUB 15800:REM ->POSICIONñ EL CURSOR 
4290 GOSUB 11500:REM —>LISTA 
4300 PRINT "(ESPACIO) PARA SEGUIR,(ESCAPE) PARA 
ACABAR" 

4310 RESPUESTAt=INPUT»(l) 

4320 IF ASC(RESPUESTA»)=27 OR FIN=1 OR INICIO!'.) 

ALTX+1 THEN RETURN 
4330 GOTO 4230 

6000 REM ::::::::::::::: .. 

6010 REM :: ERROR DE TECLADO :: 

6020 REM :::::::::::::::::::::::: 

6030 REM 
6040 RETURN 
6050 REM 

8000 REM :::::::::::::::::::: 

8010 REM:: MODIFICACION :: 

8020 REM :::::::::::::::::::: 

8030 REM 

8040 GOSUB 500:REM ——>BORRADO DE PANTALLA 
8050 YP0S=20:XP0S=1 

8060 GOSUB 15800: REM ->POSICIONA EL CURSOR 
8070 PRINT "NUMERO DE REGISTRO:" 

8080 3W=1 

8090 XPQ3=23:YPOS=20 

8100 GOSUB 1000:REM —>TECLADQ 

8110 INICI0%=PEQUEK0X+1 

8120 GOSUB 11700:REM —>POSICIONA 

8130 IF FIN=0 THEN GOTO 8210 















8170 YP0S=20:XP0S=1 

8180 GQ3UB 15S00:REM —>P0SICI0NA EL CURSOR 
8190 INPUT "NO EXISTE ESTE REGISTRO,PULSE 
< RETURN)";RESPUESTA* 

8200 RETURN 
8210 REM 

8220 GOSUB 10000:REM —>MASCARA 
8230 GOSUB 11000:REM —>VISUALIZACION 
8240 YP0S=20:XP0S=1 

B250 GOSUB 15800:REM —>PQSICIONA EL CURSOR 

8260 PRINT "PULSE <ESC> PARA MODIFICAR EL CAMPO 
O <RETURN> PARA CONTINUAR" 

8261 YP0S=4:XPQS=11 

8262 GOSUB 15800:REM -XPOSICIONA EL CURSOR 

8263 GOSUB 15900:REM —)LECTURA CARACTER 

8264 IF ASC(CAR$)<>27 THEN GOTO 8275 

8265 YP0S=4:XP0S=13 

8266 GOSUB 15800:REM -XPOSICIOHA EL CURSOR 

8267 PRINT ” 


8268 SW=3:YP0S=4;XP0S=13 

8269 GOSUB 1000:REM —I-TECLADO 

8270 LSET CL$=ALFA$ 

8275 YP0S=6:XP0S=11 

8280 GOSUB 15800:REM -XPOSICIONA EL CURSOR 
8290 GOSUB 15900:REM —XLECTURA CARACTER 
8300 IF ASC(CAR$)<>27 THEN GOTO B380 
8310 YP0S=6:XP0S=13 

8320 GOSUB 15B00:REM —>POSICIONA EL CURSOR 
8330 PRINT ■ 

n 

8340 SW=3 

8350 XP0S=13:YP0S=6 
8360 60SUB 1000:REM —>TECLADO 
8370 LSET IN$=ALFAÍ 
8380 REM 

8390 YP0S=8:XP0B=11 

8400 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8410 GOSUE 15900:REM —>LECTURA CARACTER 
8420 IF ASC<CAR$)<>27 THEN GOTO 8500 
8430 YP0S=B:XP0S=13 


8440 GOSUB 15800:REM —XPOSICIONA EL CURSOR 

8450 PRINT " 

■ 

8460 SH=3 

8470 GOSUB 15800;REM ->POSICIONA EL CURSOR 
8480 GOSUB 1000:REM —>TECLADO 
8490 LSET CI$=ALFA4 
8500 REM 

8510 YP0S=10:XP0S=11 

8520 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8530 GOSUB 15900:REM —>LECTURA CARACTER 
8540 IF ASC(CAR$)<>27 THEN GOTO 8620 
8550 YP0S=10:XP0S=13 

8560 GOSUB 15800:REM POSICIONA EL CURSOR 

8570 PRINT “ 

■ 

8580 SW=2 

8590 XP0S=13:YP0S=10 

8600 GOSUB 1000:REM —>TECLADO 

8610 LSET TE*=MKSt(GRANDE*#) 

8620 REM 

8630 YP0S=12:XP0S=11 

8640 GOSUB 15800:REM --'/POSICIONA EL CURSOR 
8650 GOSUB 15900:REM —>LECTURA CARACTER 
8660 IF ASC(CARt)<>27 THEN GOTO 8740 
8670 YP0S=12:XP0S=13 

8680 GOSUB 15800:REM ->POSICIONA EL CURSOR 
8690 PRINT 1 

n 

8700 SH=3 

8710 YP0S=12:XP0S=13 

8720 GOSUB 1000:REM —XTECLADO 

8730 LSET PRí=ALFA$ 

8740 REM 

8750 GOSUB 15500:REM —>ESCRITURA CLIENTE 
8760 RETURN ' 

8770 REM 

9000 REM ::::::::::::::::: 

9010 REM:: ANULACION :: 

9020 REM ::::::::::::::::: 

9030 REM 
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9040 60SUB 500:REM ->B0RRAD0 DE PANTALLA 

9050 YP0S=20:XP0S=1 

9060 GOSUB 15800:REM —>PQSICIONA EL CURSOR 
9065 PRINT "NUMERO DEL REGISTRO:" 

9070 SW=1:XPQS=23:YP0S=20 
9080 GOSUB 1000:REM —>TECLADO 
9090 INICI07.=PEQUEÍI07.+1 
9110 GOSUB 11700:REM --¡-TECLADO 
9120 IF FIN=1 THEN GOTO 9250 
9130 GOSUB 10000:REM -¡MASCARA 
9140 GOSUB 11000:REM —¡VISUALIZACION 
9150 YP0S=20:XP0S=1 

9160 GOSUB 15800:REM —¡POSICIONA EL CURSOR 
9170 PRINT "¿QUIERE BORRARLO?(S/N) 

9180 GOSUB 15900:REM -¡LECTURA CARACTER 
9190 IF CARÍ="S" OR CAR$=V THEN GOTO 9210 
9200 RETURN 
9210 REM 

9220 LSET TI$--="C" 

9230 GOSUB 15500:REM -¡ESCRITURA CLIENTE 
9240 RETURN 
9250 REM 

9260 YP0S=20:XP0S=1 

9270 INF'UT “NO EXISTE ESTE CLIENTE,PULSE 
<RETURN>"¡RESPUESTA* 

9280 RETURN 

10000 REM ..:::: 

10010 REM :: MASCARA :: 

10020 REM ::::::::::::::: 

10030 REM 

10040 YP0S=4:XP0S=1 

10050 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
10060 PRINT "CLIENTE :“ 

10070 YPOS=6:XPOS=1 

10080 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
10090 PRINT "DIRECCION :" 

10100 YPQS=8:XP0S=1 

10110 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
10120 PRINT "CIUDAD :” 

10130 YPOS=10:XPOS=1 

10140 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
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10150 PRINT "TELEFONO :" 

10160 YP0S=12:XP0S=1 

10170 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
10180 PRINT "PREFIJO 
10250 RETURN 
10260 REM 

11000 REM ::::::::::::::::::::: 

11010 REM :: VISUALIZACION :: 

11020 REM ::::::::::::::::::::: 

11030 REM 

11040 YP0S=4:XPOS=13 

11050 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
11060 PRINT CL$; 

11070 IF TI*<¡" " THEN PRINT " ANULADO": 
11080 YP0S=6:XP0S=13 

11090 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
11100 PRINT INí 
11110 YP0S=8:XP0S=13 

11120 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
11130 PRINT CI$ 

11140 YP0S=10:XP0S=13 

11150 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
11160 TELEFONO#=CVI$(TEi) 

11170 PRINT TELEFONO» 

11180 YP0S12:XP0S=13 

11190 GOSUB 15800:REM -¡POSICIONA EL CURSOR 
11200 PRINT PR$ 

11290 RETURN 
11300 REM 

11500 REM :::::::::::: 

11510 REM :: LISTA :: 

11520 REM :::::::::::: 

11530 REM 
11540 FIN=0 

11550 IF INICI0X)=ACTUAL7. OR INICI0X(=0 THEN 
SOTO 11610 

11560 FIELD 1,31 AS CLÍ.33 AS IN$,15 AS CIt, 
4 AS TE*,4 AS PR$,1 AS TIÍ 
11570 NUMER07.=INICI0X 
11580 GOSUB 15000:REM -¡LECTURA CLIENTES 
11590 INICIOX=INICIO'/.+l 
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11600 RETURN 
11610 FIN=1 
11620 RETURN 

11700 REM ::::::::::: .. 

11710 REM :: P0S1C1QNA :: 

11720 REM ::::::::::::::::: 

11730 NUMEROLO 
11740 REM 

11750 NUHER0!=NUMER0!+1 

11760 IF NUMEROUINICIO! THEN 11830 

11770 GOSUB 15000:REM —>LECTURA CLIENTE 

11780 IF EOF(1) THEN GOTO 11830 

11790 IF NUMEROMNICIO! THEN GOTO 11810 

11800 GOTO 11740 

11810 FIN=0 

11820 RETURN 

11830 FIN=1 

11840 RETURN 

11850 REM 

15000 REM :::::::::::: . 

15010 REM :: LECTURA FICHERO CLIENTES :: 

15020 REM ::::.::::::::::: .... 

15030 REM 

15040 GET «1,NUMERO! 

15050 RETURN 
15090 REM 

15500 REM ::::::::::::::::::::::::::::::::::: 
15510 REM :: ESCRITURA FICHEROS CLIENTES :: 
15520 REM i:::::::::::::::::::::;:::::::::::: 
15530 REM 

15550 RUT #1,NUMERO! 

15560 RETURN 
15590 REM 

15800 REM ::::::::::::::::::::::::::: 

15810 REM :: POSICIONA EL CURSOR :: 

15820 REM .. :::::::::::::::::::: 

15830 REM 

15840 LOCATE YP0S,XP0S,1 
15850 RETURN 
15860 REM 

15900 REM .. ::::.:::::::::::: 
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15910 REM :: LECTURA DE UN CARACTER :: 
15920 REM ¡¡ ¡: 

15930 REM 

15940 CAR»=INPUT»(1) 

15950 RETURN 
15960 REM 


ACCESO ALEATORIO 
COMPACTACION 


íoo rem ttmmumtmttmmmm 

110 REM *1 RAN.COMPACT U 

120 rem mmmmttimmmmtm 

130 REM 

140 OPEND "R’,2,"CLIENTE.DAT",88 
160 OPEND -R',1,'CLIENTE.VIE",88 
170 FIELO 2,2 AS ACTUAL»,2 AS ULTIMO» 

175 6ET «2,1 

180 FIELO 1,2 AS ATT»,2 AS ULTí 

190 GET «1,1 

210 X‘/.=CVI»(ULTIMO») 

220 Y!=CVI*(ATT») 

230 NUMEROM 

235 60SUB 15500:REM -^ESCRITURA DE CLIENTE 
240 ACTUAL!=2 
250 Z!=2 
260 REM 

270 FIELO 1,31 AS CLIt,33 AS IND$,15 AS CIT», 
4 AS TEL»,4 AS PRE*,1 AS TIP» 

280 GET »1,Z! 

290 IF T1P»<>“C" THEN GOTO 320 
300 PRINT CLIÍ,” ANULADO’ 

310 60T0 475 
320 REM 

330 IF Z!>X! THEN GOTO 500 
340 NOMINATIVO»=CLI* 

345 FIELO 2,31 AS CL$,33 AS IN»,15 AS CI», 

4 AS TE».4 AS PR*,1 AS TI» 























360 LSET CLÍ=CLI» 

370 LSET IN*=IND* 

380 LSET CIÍ=CITÍ 
390 LSET TE$=TEL$ 

400 LSET PRt=PRE» 

410 LSET TIÍ=TIP» 

450 PRINT CL$ 

460 NUMERO%=ACTUAL% 

470 ACTUAL7.=ACTUALX+1 v 

475 ZX=ZW 

480 IF ZX<YX THEN GOTO 260 
490 60T0 600 
500 REM 

510 PRINT “HAY \ZV REGISTROS ACTIVOS EN UN 
FICHERO OUE LOS PREVEE",XX,"!“ 

520 PRINT "NO PUEDO CONTINUAR" 

530 INPUT "PULSE RETURN";RESPUESTA» 

540 60T0 650 
600 REM 

610 FIELO 2,2 AS ATT».2 AS ULTí 
620 NUMEROS 1 

625 60SUB 15000:REM —>LECTURA DE CLIENTES 
630 LSET ATT*=MKIt(ACTUAL*) 

640 GOSUB 15500:REM —>ESCRITURA DE CLIENTES 
650 CLOSE 1 
660 CLOSE 2 
670 END 

15000 REM :::::::::::::.:::::::::::::: 

15010 REM :: LECTURA FICHERO CLIENTES :: 

15020 REM ::::.::::i:::::::::::::::::: 

15030 REM 

15040 GET #2,NUMERO* 

15050 RETURN 
15060 REM 

15500 REM i::::::::::::::::::::::::::::::::: 
15510 REM :: ESCRITURA FICHERO CLIENTES :: 
15520 REM 
15530 REM 

15540 PUT #2,NUMERO* 

15550 RETURN 
15560 REM 



l. ESTION SECUENC I AL 
EN BASIC 


loo re.m ttmtmmmmt 

lio REM *r SEC_GESTION U 

120 rem tnmmtmmtu 

130 REM 

220 GOSUB 500:REM —>BORRADO DE PANTALLA 

230 GOSUB 800:REM —>MENU 

240 ON QUEQUIERE GOSUB 2000,4000,6000,8000,9000 

250 IF QUEQUIERE09 THEN 60T0 220 

290 END 

500 REM ::::::::::::.::::::::: 

510 REM:: BORRADO DE PANTALLA :: 

520 REM ::::::::::::::::::::::::::: 

530 REM 

540 CLS 

550 RETURN 

BOO REM :::::::::::: 

810 REM :: MENU :: 

820 REM :::::::::::: 

830 REM 

840 PRINT “1 --> CARGA DE DATOS" 

850 PRINT 

860 PRINT "2 --> LECTURA CON EL NUMERO DE REGISTROS" 
870 PRINT 

880 PRINT "3 --> LECTURA CON EL NOMBRE DE CLIENTE" 

890 PRINT 

900 PRINT "4 --> MODIFICACION O ANULACION DE REGISTRO" 
910 PRINT 

920 PRINT "5 --> PUESTA EN FILA DEL REGISTRO" 

930 PRINT 

940 PRINT "9 ~> FIN DEL PROGRAMA" 

950 PRINT 

960 PRINT :RESPUESTAt=INPUT*(1):QUEQUIERE= 

ASC(RESPUESTA»)-ASC("O") 

980 RETURN 

1000 REM ::::::::::::::: 

1010 REM:: TECLADO :: 

1020 REM ::::::::::::::: 

1030 REM 
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1040 ALFA$=““ 

1050 GOSUB 15800:REM —>POSICIONA EL CURSOR 
1060 GOSUB 15900:REM —>LECTURA CARACTER 
1070 IF ASC(CAR$)=13 THEN 1210 
1080 IF ASC (CARO < >8 THEN 1310 

1090 REM - 

1100 REM - TECLA DE RETORNO - 

1110 REM . 

1120 IF LEN(ALFAí)>1 THEN ALFA«=LEFT$(ALFA*, 
LEN(ALFA*)-1) ELSE ALFA*="" 

1130 REM-- 

1140 REM - IMPRESION DE CAMPO -- 

1150 REM . 

1160 GOSUB 15800:REM —>POSICIONA EL CURSOR 
1170 PRINT ALFA*:” 

1180 GOSUB 15800:REM ->POSICIONA EL CURSOR 
1190 PRINT ALFA*: 

1200 GOTO 1060 

1210 REM . 

1220 REM -- NUEVA ENTRADA -- 

1230 REM . 

1240 IF Sll=3 THEN RETURN 
1250 G#=0 

1260 FOR X=1 TO LEN(ALFA») 

1270 G#=G#*10+ASC(MID*(ALFA*,X,1))-48 
1280 NEXT X 

1290 IF SW=1 THEN PEQUEÍ¡0=CSNG(GI) ELSE 
GRANDE#=G* 

1300 RETURN 

1310 REM . 

1320 REM - CARACTER NORMAL - 

1330 REM - 

1340 IF SW=3 THEN GOTO 1450 

1350 REM -- 

1360 REM -- CARACTER NUMERICO -- 

1370 REM.. 

1380 IF CAR*<"0“ OR CAR$>“9" THEN GOTO 1400 
1390 GOTO 1490 

1400 REM - 

1410 REM - ERROR DE TECLA -- 
1420 REM--- 



1430 PRINT CHR*(7); 

1440 60T0 1060 

1450 REM - 

1460 REM - CARACTER ALFABETICO -- 

1470 REM . 

1480 IF CARÍ<" 1 OR CAR$<“z" THEN GOTO 1400 
1490 ALFA*=ALFA*+CAR* 

1500 GOTO 1130 

2000 REM ::::::::::::::::::: 

2010 REM:: CARGA DATOS :: 

2020 REM ::::::::::::::::::: 

2030 REM 

2040 OPEN "O",1,“CLIENTES.DAT" 

2050 REM 

2060 GOSUB 13500:REM —>INTRODUCCION DATOS 
2070 IF NOMINATIVOt="zzzz" THEN GOTO 2700 
2590 CL*=CLIENTE* 

2600 IN*=DIRECCION* 

2610 CI*=CIUDAD* 

2620 TE*=ALFA* 

2630 PR*=PREFIJO* 

2670 GOSUB 15500:REM -^ESCRITURA CLIENTE 

2680 GOTO 2050 

2700 CLOSE 1 

2710 RETURN 

2720 REM 

4000 REM :::.:::::::.:::::::::::::::: 

4010 REM :: LECTURA CON EL NUMERO DE REGISTRO : 
4020 REM :::::::::::::::::::::::::::::::::::::::: 
4030 REM 

4035 OPEN "I",#1,"CLIENTES.DAT" 

4040 YP0S=20:XP0S=1 

4050 GOSUB 15800:REM ->P0SICI0NA EL CURSOR 
4060 PRINT "NUMERO DEL PRIMER REGISTRO:" 

4070 SW=1 
4080 XP0S=32 
4090 YP0S=20 

4100 GOSUB 1000: REM —>TECLADO 
4110 INICI0X=PEQUEí30X+l 
4120 YP0S=20:XP0S=1 

4130 GOSUB 15800:REM —>POSICIONA EL CURSOR 
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4140 PRINT 'NUMERO DEL ULTIMO REGISTRO: 

4150 SW=1 
4160 XP0S=32 
4170 YP0S=20 

4180 60SUB 1000:REM —>TECLADO 
4190 ALTZ=PEQUEfi02+1 
4210 60SUB 11700:REM ->POSICIONA 
4220 IF FIN=1 THEN THEN GOTO 4340 
4230 REM 

4240 GOSUB 500:REM —>BORRADO DE PANTALLA 
4250 GOSUB 10000:REM ->MASCARA 
4260 GOSUB 11000:REM ->VISUALIZACION 
4270 YP0S=2O:XP0S=1 

4280 GOSUB 15800:REM ->POSICIONA EL CURSOR 
4290 GOSUB 11500:REM ->LISTA 
4300 PRINT “<ESPACIO) PARA SEGUIR,<ESC> PARA 
TERMINAR' 

4310 RESPUESTAÍ=INPUT$(1) 

4320 IF ASC<RESPUESTA)=27 OR FIN=1 OR INICIOX) 
ALTX+1 THEN GOTO 4340 
4330 60T0 4230 
4340 REM 
4350 CLOSE 1 
4360 RETURN 
4370 REM 

6000 REM :::::::::::::: 

6010 REM :: NOMBRE :: 

6020 REM ::::::.. 

6030 REM 

6040 OPEN “i",1, 'clientes.dat" 

6050 FIN=0 
6060 YPOS=20 
6070 XP0S=1 

6080 GOSUB 15800:REM —>POSICIONA EL CURSOR 
6090 PRINT "NOMBRE DEL PRIMER CLIENTE:' 

6100 SW=3 
6110 XP0S=32 
6120 YP0S=20 

6130 GOSUB 1000:REM —)TECLADO 
6140 POSICIONí=ALFA$ 

6150 YP0S=20 


6160 XP0S=1 

6170 GOSUB 15800:REM —>POSICIONA EL CURSOR 
6180 PRINT "NOMBRE DE ULTIMO CLIENTE: 

6190 SW=3 
6200 XP0S=32 
6210 YP0S=20 

6220 GOSUB 1000:REM —>TECLADO 

6230 TERHINOÍ=ALFAÍ 

6240 GOSUB 13000:REM —>CLAVE 

6250 IF FIN=1 THEN GOTO 6380 

6260 GOSUB 500:REM ——>BORRADO DE PANTALLA 

6270 GOSUB 10000:REM —>MASCARA 

6280 GOSUB 11000:REM —>VISUALIZACION 

6290 YP0S=20:XP0S=1 

6300 GOSUB 15800:REM ~>POSICIONA EL CURSOR 
6310 PRINT "<ESPACIO> PARA SEGUIR,<ESC> PARA 
CONTINUAR' 

6320 GOSUB 15900:REM —>LECTURA CARACTER 

6330 IF ASC(CAR$)=27 THEN GOTO 6380 

6340 IF TERMINOí=CL$ THEN GOTO 6380 

6350 IF EOF(1) THEN GOTO 6380 

6360 GOSUB 15000:REM —>LECTURA CLIENTE 

6370 GOTO 6260 

6380 REM 

6390 CLOSE 1 

6400 RETURN 

6410 REM 

8000 REM :::::::::::::::::::: 

8010 REM :: MODIFICACION :: 

8020 REM :::::::::::::::::::: 

8030 REM 

8040 OPEN "I",1,'CLIENTES.DAT* 

8050 OPEN ”0",2, "CLIENTES.NOV" 

8060 REM 

8070 IF EOF(1) THEN GOTO 8730 
8080 GOSUB 15000:REM —>LECTURA CLIENTE 
8090 60SUB 500:REM -—>BORRADG DE PANTALLA 
8100 REM 

8110 GOSUB 10000:REM —>MASCARA 
8120 GOSUB 11000:REM —>VISUALIZACION 










6130 YP0S=20:XP0S=1 

8140 60SUB 15800:REM —>P0SICI0NA EL CURSOR 
8150 PRINT “CODIFICA,B)ORRA,R)ECOPIA"j 
8160 GOSUB 15900:REM —>LECTURA CARACTER 
8170 IF CAR$="C" OR CAR$=V THEN GOTO 8770 
8180 IF CARí="M“ OR CAR$=”m” THEN GOTO 8210 
8190 IF CAR$="R" OR CARI='Y" THEN GOTO 8700 
8200 GOTO 8160 

8210 YP0S=20: XP0S=1 v. 

8220 PRINT “PULSE <ESC> PARA MODIFICAR EL 
CAMPO,<RET> PARA CONTINUAR" 

8230 YP0S=6:XP0S=11 

8240 GOSUB 15B00:REM ->POSICIONA EL CURSOR 
8250 GOSUB 15900:REM —>LECTURA CARACTER 
8260 IF ASC(CAR$)<>27 THEN GOTO 8340 
8270 YP0S=6:XP0S=13 

8280 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8290 PRINT " 

N 

8300 SW=3 

8310 XP0S=13:YP0S=6 

8320 GOSUB 1000:REM —>TECLADO 

8330 IN$=ALFA$ 

8340 REM 

8350 YP0S=8:XP0S=11 

8360 GOSUB 15800:REM -)POSICIONA EL CURSOR 
8370 GOSUB 15900:REM —>LECTURA CARACTER 
8380 IF ASC(CAR*)<>27 THEN GOTO 8460 
8390 YF'0S=8: XP0S=13 

8400 GOSUB 15800:REM ->POSICIONA EL CURSOR 
8410 PRINT " 

n 

8420 SW=3 

8430 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8440 GOSUB 1000:REM —>TECLADO 
8450 CIÍ=ALFAÍ 
8460 REM 

8470 YP0S=10:XP0S=11 

8480 GOSUB 15800:REM ~>POSICIONA EL CURSOR 
8490 GOSUB 15900:REM —>LECTURA CARACTER 
8500 IF ASC (CARI) 027 THEN 60T0 8580 


11510 YP0S=10: XP0S=13 

(1520 GOSUB 15800: REM ->P0SICI0NA EL CURSOR 
8530 PRINT “ 

n 

11540 SH=2 

8550 XP0B=13:YP0S=10 

8560 GOSUB 1000:REM —>TECLADQ 

8570 TE*=ALFA$ 

8580 REM 

8590 YP0S=12:XP0S=11 

8600 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8610 GOSUB 15900:REM —>LECTURA CARACTER 
8620 IF ASC(CAR$)<>27 THEN GOTO 8700 
8630 YP0S=12: XF'0S=13 

8640 GOSUB 15800:REM ->P0SICI0NA EL CURSOR 

8650 PRINT " 

» 

8660 SW=3 

8670 YP0S=12:XP0S=13 
8680 GOSUB 1000:REM —>TECLADO 
8690 PR*=ALFAÍ 
8700 REM 

8710 WRITE 42,CL*,IN$,CIÍ,TEÍ,PR1 

B720 GOTO 8070 

8730 CLOSE 1 

8740 CLOSE 2 

8750 RETURN 

8760 REM 

8770 YP0S=20:XPOS= 1 

8780 GOSUB 15800:REM —>POSICIONA EL CURSOR 
8790 PRINT "oDESEA BORRARLO? (S/N) 

8800 GOSUB 15900:REM —>LECTURA CATACTER 
8810 IF CARÍ="s“ OR "S" THEN GOTO 8070 
8820 GOTO 8700 
8830 REM 

9000 REM :::. :::::::::::::: 

9010 REM:: PUESTA EN FILA :: 

9020 REM :::::::::::::::::::::: 

9030 REM 

9040 OPEN "CLIENTES.DAT" FOR APPEND AS #1 
9050 REM 


t 
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9060 60SUB 13500: REM ~>INTRODUCCIGN DE DATOS 
9070 IF NOMINATIVOt="zzzz" TREN GOTO 9200 
9090 CLÍ=CLIENTE$ 

9100 INt=DIRECC10Ní 
9110 CI»=CIUDAD» 

9120 TE$=ALFA$ 

9130 PR$=PREFIJO» 

9140 GOSUB 15500:REM —>E5CRITURA CLIENTE 

9150 GOTO 9050 

9200 GLOSE 1 

9210 RETURN 

9220 REM 

10000 REM .. ::::::::: 

10010 REM :: MASCARA :: 

10020 REM 
10030 REM 

10040 YP0S=4:XP0S=1 

10050 GOSUB 15800:REM —>POSICIGNA EL CURSOR 
10060 PRINT "CLIENTE :" 

10070 YP0S=6:XP0S=1 

10080 GOSUB 15800:REM —>POSICIONA EL CURSOR 
10090 PRINT "DIRECCION :" 

10100 YP0S=8:XP0S=1 

10110 GOSUB 15800: REM ->P0SICI0NA EL CURSOR 
10120 PRINT "CIUDAD 
10130 YP0S=10:XP0S=1 

10140 GOSUB 15800:REM —>POSICIONA EL CURSOR 
10150 PRINT "TELEFONO :“ 

10160 YP0S=12:XP0S=1 

10170 GOSUB 15800:REM —>POSICIONA EL CURSOR 
10180 PRINT “PREFIJO :" 

10220 RETURN 
12300 REM 

11000 REM i:::::::::::::::::::: 

11010 REM :: VISUALIZACION :: 

11020 REM 
11030 REM 

11040 YP0S=6:XP0S=13 

11050 GOSUB 15800:REM ->POSICIONA EL CURSOR 
11060 PRINT CL« 

11080 YP0S=6:XP0S=13 



11090 GOSUB 15800:REM ->P0SICI0NA EL CURSOR 
11100 PRINT INI 
11110 YP0S=8:XP0S=13 

11120 GOSUB 15800:REM ->POSICIONA EL CURSOR 
11130 PRINT CI» 

11140 YP0S=10:XP0S=13 

11150 GOSUB 15800:REM ->POSICIONA EL CURSOR 
11170 PRINT TE» 

11180 YP0S=12:XP0S=13 

11190 GOSUB 15800:REM —>POSICIONA EL CURSOR 
11200 PRINT PR* 

11250 RETURN 
11260 REM 

11500 REM :::. ::::: 

11510 REM:: LISTA :: 

11520 REM ::::::::::::: 

11530 REM 
11540 FIN=0 

11550 IF EOF <1) THEN GOTO 11610 

11580 GOSUB 15000:REM —>LECTURA CLIENTE 

11590 INICIO’/. = INICIO’/i+l 

11600 RETURN 

11610 FIN=1 

11620 RETURN 

11700 REM ::::::::::::::::: 

11710 REM:: POSICIONA :: 

11720 REM ::::::::::::::::: 

11730 REM 

11740 NUMEROLO 

11750 NUNER0X=NUMERQ'/+1 

11760 IF NUMERO»)INICIO'/. THEN 11830 

11770 GOSUB 15000:REM —>LECTURA CLIENTE 

11780 IF EOF(1) THEN GOTO 11830 

11790 IF NUMEROS INICIO’/. THEN GOTO 11810 

11800 GOTO 11740 

11810 FIN=0 

11820 RETURN 

11830 FIN=1 

11840 RETURN 

11850 REM 

13000 REM ::::::::::::: 


x 
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13010 REM :: CLAVE :: 

13020 REI1 ::::.. 

13030 REM 

13040 60SUB 15000:REM — >LECTURA CLIENTE 
13050 IF CLt=PARTIDAt THEN RETURN 
13060 IF EOF(1) THEN FIN=1:RETURN 
13070 GOTO 13030 
13080 REM 
13500 REM 

13510 REM :::::::::::::::::: 

13520 REM :: SOLICITUDES :: 

13530 REM :::::::::::::::::: 

13540 REM 

13550 GQSUB 500 ->BORRADÜ DE PANTALLA 

13560 YP0S=20:XP0S=1 

13570 GOSUB 15800:REM -)POSICIONA EL CURSOR 
13580 PRINT "PARA TERMINAR,A LA SOLICITUD DEL 
NOMBRE DEL CLIENTE RESPONDA ’zzzz”' 
13590 GOSUB 10000:REM —>MASCARA 
13600 XP0S=13:YP0S=4 
13610 SW=3 

13620 GOSUB 1000:REM —>TECLADO 
13630 NOMINATIVO*=ALFA* 

13640 IF NOMINATIVO$=“zzzz“ THEN RETURN 
13650 CLIENTE*=NOMINATIVO* 

13660 SW=3 
13670 XP0S=13 
13680 YP0S=6 

13690 GOSUB 1000:REM —>TECLADO 
13700 DIRECCIONÍ=ALFA* 

13710 SW=3 
13720 XP0S=13 
13730 YP0S=8 

13740 GOSUB 1000:REM —>TECLADD 
13750 CIUDAD*=ALFA* 

13760 SW=2 
13770 XPOS=13 
13780 YP0S=10 

13790 6QSUB 1000-.REM —>TECLADO 
13800 TELEFONO#=GRANDE# 

13810 SM=3 
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13820 XP0S=13 
13830 YF'0S=12 

13840 GOSUB 100:REM —'/TECLADO 
13850 PREFIJOt=ALFA* 

13860 TIPO*=“ “ 

13870 RETURN 

15000 REM :::::::::::::::::::::::::::::::: 
15010 REM :: LECTURA FICHERO CLIENTES :: 
15020 REM :::::::::::::::::::::::::::::::: 
15030 REM 

15040 INPUT #1,CLÍ,IN*,CIÍ,TEÍ,PR* 

15050 RETURN 
15090 REM 

15500 REM ::::::::::::::.:::::::::::::: 

15510 REM :: ESCRITURA FICHERO CLIENTES : 
15520 REM 
15530 REM 

15550 WRITE tll.CLt,INt,CI*,TE*,PR* 

15560 RETURN 
15590 REM 

15800 REM ::::::::::::::::::::::::::: 

15810 REM :: POSICIONA EL CURSOR :: 

15820 REM ::::::::::::::::::::::::::: 

15830 REM 

15840 LOCATE YPOS,XPOS,1 
15850 RETURN 
15860 REM 

15900 REM .. 

15910 REM :: LECTURA DE UN CARACTER :: 

15920 REM .. 

15930 REM 

15940 CAR*=INPUT*(1) 

15950 RETURN 
15960 REM 























APENDICE PASCAL 


GESTION SECUENCIftL 
EN PASCAL 


PROGRAM sec_gestion; 

TYPE di =REC0RD 

diente ¡STRINBC313; 
dirección :STRINGC331¡ 
ciudad :STRIN5C15]; 
telotono :INTEGERC8]; 
pretijo :STRIN6C4I ; 
END; 

VAR 

clientes ¡FILE OF di; 

actualizacion:FILE OF di; 
tuera, 

tin -.BOOLEAN; 

partida, 

termino, 

alta, 

nominativo :STRINGC333; 

car,sw, 
respuesta, 
que_quiere :CHAR; 

st " :STRING[1]; 
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grande :INTEEERC153; 

*»y»Zf¿f 
x_pos,y_pos, 
inicio,alt, 
pequeño:INTEGER; 

PROCEDURE borrado_pantalla: 

BEGIN 

WRITE(CHR$(28)); 

ENDj 

PROCEDURE teclado; 

BEGIN 

CASE sw OF 

’r:pequeno:=0; 

’2’:grande:=0; 

’3’:alfa:=0¡ 

END; 

GOTOXY(x_pos,y_pos); 

REPEAT 

READ(KEYBOARD,car); 

IF NOT EOLN(KEYBDARD) 

THEN BEGIN IF 0RD(car)=8 THEN BEGIN 
GOTOXY(x_pos,y_pos); 

CASE sw OF 
T:BE6IN 

pequeño:^pequeño DIV 10; 
WRITE(pequeño,’ ’); 

GOTOXY (x_pos,y_pos); 

NRITE(PEQUEÑO); 

END; 

’2’:BEGIN 

grande:=grande DIV 10; 

WRITE(grande,’ ’); 

GOTOXY(x_po5,y_pos); 

WRITE(grande); 

END; 

’3’:BEGIN 

DELETE(alfa.LENGTH (alf a) , 1 ); 
WRITE(alfa,’ ’); 

60T0XY (x_pos, y_pos); 


«RITE (alfa); 

END; 

END; 

END 

ELSE BEGIN 
IF sw IN [’iY2’] 

THEN BEGIN 

IF car IN[’0’..’9’] 

THEN BEGIN 

IF sw=’r 

THEN pequeño:=pequeno*10+0RD(car)-48 
ELSE grande:=grandel10+0RDIcar)-48; 
write 
END 

ELSE WRITEÍCHRÍ(7)); 

END (del campo numérico) 

ELSE BEGIN 

IF car IN [’ 

THEN BEGIN 
st:=’ ’; 
stcn¡=car; 

alfa:=CONCAT(alfa.st); 

WRITE(car); 

END 

ELSE WRITE(CHRt(7)); 

END; (del campo alfabético) 

END; (si no tecla de retorno) 

END; {no es <RETURN» 

UNTIL EOLN(KEYBOARD); 

END; 

PROCEDURE menú; 

BEGIN 

b or r ad o_p antalla; 

WRITELN; 

WRITELN(’1 --> CARGA DE DATOS’); 

WRITELN; 

WRITELN(’2 -> LECTURA CON EL NOMBRE DE CLIENTE’!; 

WRITELN; 

WRITELN(’3 --> LECTURA CON EL NUMERO DE REGISTRO’); 

WRITELN; 
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WRITELN(’4 --> MODIFICACION O ANULACION DE REGISTRO’); 
WRITELN; 

MRITELN(’5 -> PUESTA EN COLA DEL REGISTRO AL FINAL’); 
WRITELN; 

WRITELN(’9 --> FIN DEL PROGRAMA’); 

WRITELN; 

READ(QUE_QUIERE)¡WRITELN; 

END; 

*V. 

PROCEDURE visualizacion; 

BEGIN 

WITH CLIENTE" 

DO BE6IN 

GOTOXY <13,4); 

WRITE(diente A . cliente); 

GOTOXY(13,6); 

WRITE(direccion); 

GOTOXY(13,8); 

WRITE(ciudad); 

GOTOXY(13,10); 

NRITE(telefono); 

GOTOXY(13,12); 

WRITE(prefijo); 

END; 

END; 

PROCEDURE «aseara; 

BEGIN 

GOTOXY(0,4); 

WRITE(’cliente :’); 

GOTOXY(0,6); 

NRITEf’direccion :’); 

GOTOXY(0,8); 

WRITE('CIUDAD :’); 

GOTOXY(O,10); 

WRITEf’telefono :’); 

GOTOXY(0,12); 

WRITEI’prefijo :’); 

END; 


PROCEDURE clave; 

BEGIN 

WITH cliente" 

DO REPEAT 

IF dienteOnoainativo THEN GET (cliente); 
UNTIL (cliente=no«inativo) 

OR EOF(el i ente); 

•f in:=E0F (cliente); 

END; 

PROCEDURE «odificacion; 

BEGIN 

RESET (cliente,'diente.dat’); 

REWRITE (actual izacion, ’diente.nov’); 

WHILE NOT EOF(eli ente) 

DO BEGIN 

borrado_panfcalla; 

«aseara; 

visualizacion; 

GOTOXY(0,20); 

WRITE ( ? ¿M) odi t i cacion, Oancelar ,R) ecopi a?: ’); 
READ(respuesta); 

IF respuesta IN C’C’,’c’I 
THEN BEGIN (BORRADO) 

GOTOXY(0,20); 

WRITE(’¿QUIERE BORRARLO? (S/N)’); 

READ(respuesta); 

IF respuesta IN [’N’/n’I 
THEN BEGIN 

actualizacion":=diente"; 

PUT (actualización); 

END; 

END; 

ELSE IF respuesta IN [’M’,’«’I 
THEN BEGIN (modificación} 

GOTOXY(0,13); 

WRITE('PULSE <ESC> PARA MODIFICAR EL CAMPO, 
(RETURN) PARA SEGUIR’); 

GOTOXY(13,4); 

READ(respuesta); 

IF respuesta=CHR$(27) 
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THEN BEGIN 
60T0XY(13,4); 

WRITE (’ ’); 

x_pos:=13; 
y_pos:=4; 
sn:=’3’j 

diente*.cliente:=alfa; 

END; 

BOTDXY(13,ó); 

READ(respuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN 
GQTOXY(13,6); 

WRITE(’ 
x_pos:=13; 
y_pos:=6; 
teclado; 

diente A .direccion:=alfa; 

END; 

GOTOXY(13,8); 

READ(respuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN 
GOTOXY(13,8); 

WRITE(’ ’); 

x_pos: =13; 
y_pos:=8; 
teclado; 

diente*.ciudad:=alfa; 
END; 

60T0XY(13,10); 

READ(respuesta); 

IF respuesta=CHR$<27) 

THEN BEGIN 
GOTOXY(13,10); 

WRITE(’ ’); 

x_pos:=13; 

y_pos:=10; 




5h:=’2’; 

teclado; 

diente*.telefono:=grande; 

END; 

GOTOXY(13,12); 

READ(respuesta); 

IF respuesta=CHRt(27) 

THEN BEGIN 
60T0XY(13,12; 

WRITEC ’); 

x_pos:=13; 

y_pos:=12 

sw:=’3’; 

teclado; 

diente*, preti jo:=alf a; 

END; 

actualizacion A :=diente*; 

PUT (actualización); 

END {modificación} 

ELSE BEGIN {recopia} 

actual izacion A :=diente A ; 

PUT (actualización); 

END; {inalterado} 

GET (diente); 

END; (registro existente) 
CLOSE(diente); 

CLOSE(actual izacion,LOCK); 

END; 

PROCEDURE nombre 
BEGIN 

RESET (cliente, 'diente, dat’); 
GOTOXY(O,20); 

WRITE(’NOMBRE DEL PRIMER CLIENTE 
READLN(partida); 

GOTOXY(0,20); 

WRITE('NOMBRE DE ULTIMO CLIENTE 


GOTOXY(32,20); 




READLN(termino); 

noisinativo:=partida; 

clave; 

IF NOT fin 
THEN REPEftT 
borrado_pantalla¡ 
mascara; 
visualizacion; 

fuera:=diente\diente=terfflino; 

G0T0XY(0,20); 

6ET(cliente); 

WRITE(’(ESPACIO) PARA SEGUIR,’, 

’<ESC> PARA TERMINAR’); 
READ(respuesta); 

UNTIL (respuesta)=CHR*(27) 

OR (fuera) 

OR EOF(cliente); 

CLOSE(cliente); 

END; 

PROCEDURE posiciona; 

BEGIN 

x:=0; 

REPEAT 

x:=x+l; 

IF x<inicio then GET (cliente); 

UNTIL (x=inicio) 

OR EOF(cliente)¡ 
fin:=E0F(cliente); 

END; 

PROCEDURE lectura; 

BEGIN 

RESET (di ente,’d iente.dat’); 

GOTOXY(0,20); 

«RITE('NUMERO DEL PRIMER REGISTRO: ’); 

sw:=’ 1 ’; 

x_pos: =32; 

y_pos:=20; 

teclado; 

inicio^pequeno; 



GOTOXY(O,20); 

«RITE('NUMERO DEL ULTIMO REGISTRO: ’, 

’ 

x_pos: =32; 

y_pos:=20; 

teclado; 

alt:=pequeno; 

posiciona; 

IF NOT fin 
THEN REPEAT 
borradD_pantalla; 
mascara; 
visualizacion; 

60T0XY(0,20); 

GET (el i ente); 
inicio:=inicio+l; 

NRITE(’(ESPACIO) PARA SEGUIR,’, 

’(ESC) PARA TERMINAR’); 

READ(respuesta); 

UNTIL (respuesta=CHR*(27)) 

OR (inicio)alt) 

OR (EOF(eliente)); 

END; 

PROCEDURE solicitudes; 

BEGIN 

borradojantalla; 

GOTOXY(O,20); 

NRITELN(’PARA FINALIZAR LA CARGA,RESPONDA’, 
’"zzzz" A LA PETICION DE CLIENTE’); 

nascara; 

x_pos:=13¡ 

Y-Pos: =4; 
sw:=’3’; 
teclado; 

nominati vQ:=alfa; 

IF nosinativoO’zzzz’ 

THEN BEGIN 
«ITH diente* 

DO BEGIN 

diente:=noainativo; 


x_pos:=13; 

y_pos:=6; 

teclado; 

direccion:=alfa; 
x_pos:=l3; 
y_pos:=8; 
teclado; 
ciudad:=alfa; 
x_pos:=13; 
y _pos:=10; 
sw:=’2’; 
teclado; 

telefono:=grande; 

xjjos:=13; 

y_pos:=12; 

sw:=’3’; 

teclado; 

prefijo:=alfa; 

END; {DE LA HITH CLIENTE"'} 

END; (SI CLIENTE) 

END; 

PROCEDURE carga; 

BEGIN 

REWRITE(el i ente,’ cliente.dat’); 

REPEAT 

solicitudes; 

IF nominativoO’zzzz’ THEN PUT(cliente); 
UNTIL nominativo=’zzzz’; 

CLOSE(el i ente,LOCK); 

END; 

PROCEDURE puesta_en_fila; 

RESET (el i ente, ’d i ente.dat); 

REWRITE(actualizazion,’eliente.nov); 
WHILE NOT EOF (cliente) 

DO BEGIN 

actualizacion':=cliente A ; 

WRITELN(diente A .cliente); 

PUT(actualización); 

GET(cliente); 


END; 

REPEAT 

solicitudes; 

IF noBinativoO’zzzz’ 

THEN BEGIN 

actual i z aci on A : =d i ente'; 
PUT(actualización); 

END; 

UNTIL no«inativo=’zzzz’; 
CLOSE (diente); 
CLOSE(actualizacion,LOCK); 
END; 

BEGIN 

menú; 

CASE que_quiere OF 

’l’: carga; 

’2’: nombre; 

’3’: lectura; 

’4’: modificación; 

’5’: puesta_en.fi la; 

END; 

END. 


ACCESO ftLEATDRIO 
PREPARACION 


PROGRAH ran.preparación; 

TYPE 

di=REC0RD 

CASE BOOLEAN OF 

TRUE:(cliente:STRINGC313; 
direccion:STRIN6C333; 
ciudad:STRINGC153; 
telefono:INTEGERC83; 
prefi jo:STRINGI43; 
tipo’.CHAR); 
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FALSE:(priaerosinteger; 
aaximo:integer); 

END; 

VAR 

cliente:FILE OF cli; 
x,ultimo:INTEGER; 

BE6IN 

RENRITEtdiente, ’d iente. dat’); 

WRITE(’¿DE CUANTOS RE6ISTR0S ESTARA COMPUESTO EL FICHERO?’); 
READLN(ultimo); 

WITH diente* 

DO BEGIN 
primero:=2; 
aax i rao:=ultiao+1; 

PUT(cliente)¡ 

PUT(cliente); 
diente:*”; 
dirección:*”; 
ciudad:*”; 
tel e-f ono:=0; 
prefijo:=’0000’; 
tipo:*”; 

FOR X: =2 TO ultimo+1 DO PUT (diente); 

END; 

CLOSE 

END. 


ACCESO ALEATORIO 
GESTION 

PROGRAM ran_gestion; 

TYPE 

di=RECORD 

CASE BOOLEAN OF 

TRUE:(cliente:STRINGC313; 
direccion:STRINGC333; 



ciudad:STRINGC151; 
telefono:INTEGERE83; 
prefijo:STRINGE4]; 
tipo:CHAR)$ 

FALSE:(primero:integer; 
naxino:integer); 
END; 


VAR 

eliente:FILE OF cli; 
fuera,fin:BOOLEAN; 

partida,termino,alfa,noainativo:STRIN6C333 
car ,su, respuesta,que_quiera:CHAR; 
st:STRINGE1]; 
grande:INTEGER!151; 

*.yJ* 
x_pos,y_pos, 
inicio,alt, 

pequeño,actual,ultimo:INTEGER; 

PROCEDURE borrado_pantalla; 

BEGIN 

WRITE(CHRi (28)); 

END; 

PROCEDURE teclado; 

BEGIN 

CASE 5w OF 

’1’:pequeño:=0; 

’2':grande:=0; 

’3’:alfa:=”; 

END; 

60T0XY(x_pos, y_pos); 

REPEAT 

READ(KEYBOARD,car); 

IF NOT EOLN(KEYBOARD) 

THEN BEGIN 

IF ORD(car)=8 THEN BEGIN 
GOTOXY (x_pos, y_pos); 

CASE sw OF 
’1’:BEGIN 
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pequeño:=pequeno DIV 10; 

WRITE(pequeño,’ ’); 

60T0XY (x_pos, y jjos) ; 

«RITE(PEQUEÑO); 

END; 

’2’¡BEGIN 

grande:=grande DIV 10; 

WRITE(grande,’ '); 
GOTOXY(x_pos,y_pos); 

HRITE(grande); 

END; 

’3’¡BEGIN 

DELETE(alia,LEN6THÍalia), 1); 

WRITE(alla,’ ’); 

GOTOXY (x_pos, y_pos); 

«RITE (alía); 

END; 

END; 

END 

ELSE BEGIN 
IF sw IN [’1’,’2’] 

THEN BEGIN 
IF car IN[’0’..’9’3 
THEN BEGIN 
IF sw=’l’ 

THEN pequeño:=pequeno*lO+ORD(car)-48 
ELSE grande:=grandetlO+ORD(car)-48; 
«RITE 
END 

ELSE WRITE(CHR$(7)); 

END £del campo numérico) 

ELSE BEGIN 
IF car IN (’ 

THEN BEGIN 
st:=’ ’; 
stC13:=car; 

alía:=CDNCflT(alla.st); 

WRITE(car); 

END 

ELSE WRITE(CHR$(7)); 

END; (del campo alíabetico) 



END; (si no tecla de retorno) 
END; £no es <RETURN» 

UNTIL EOLN(KEYBOARD); 

END; 


PROCEDURE «enu; 

BEGIN 

borrado jantal la; 

NRITELN; 

WRITELN(’1 --> CARGA DE DATOS’); • 

NRITELN; 

WRITELN(’2 --> LECTURA DE REGISTRO’); 

NRITELN; 

NRITELN(’4 --> MODIFICACION DE UN RE6ISTR0’); 
NRITELN; 

WRITELN(’5 --> ANULACION DE UN REGISTRÓ’) 
NRITELN; 

WRITELN(’9 --> FIN DEL PROGRAMA’); 

NRITELN; 

READ(QUEJUIERE); WRITELN; 

END; 


PROCEDURE visualizacion; 

BEGIN 

WITH diente" 

DO BEGIN 

GOTOXY(13,4); 

WRITEfdiente". cliente); 

IF TIPO O’ ’THEN WRITE(’ANULADO’) 
ELSE NRITE(’ ’) 

GOTOXY(13,6); 

WRITE(dirección); 

GOTOXY(13,8); 

WRITE(ciudad); 

GOTOXY(13,10); 

NRITE(telelono); 

GOTOXY(13,12); 

WRITE(preíi jo); 

END; 

END; 



PROCEDURE aascara; 
BEGIN 


GOTOXY(0,4); 


HRITE('cliente 

:’) 

GOTOXY(0,6); 


HRITE(’dirección 

:’) 

60T0XY(0,8); 


HRITE <'CIUDAD 

:’) 

GOTOXY(0,10); 


NRITECteletono 

:’) 

GOTOXY(0,12); 


HRITE(’prefi jo 

:’) 


END; 

PROCEDURE lista; 

BEGIN 

fin:=FALSE; 

IF (inicio<actual) 

AND (inicío)O) 

THEN BEGIN 

SEEK(cliente,inicio); 

GET(cliente); 

inicio:=inicio+l; 

END 

ELSE fin:=TRUE; 

END; 

PROCEDURE «odificacion; 

BEGIN 

borrado_pantalla; 

GOTOXY(0,20); 

WRITE('NUMERO DEL REGISTRO:’); 

swT; 

x_pos:=18; 

y_pos:=20; 

teclado; 

inicio:=pequeno+l; 

j:=pequeno+l; 

lista; 

IF NOT fin 
THEN BEGIN 



«aseara; 

visualizacion; 

GOTOXY(0,20); 

HRITE(’<ESC> PARA MODIFICAR,’, 
’<RETURN> PARA CONTINUAR’); 
GOTOXY(13,4); 

READ(respuesta); 

IF respuesta=CHRt(27) 

THEN BEGIN 
GOTOXY(13,4); 

HRITE(’ ’); 

sh:=’3’: 

x_pos:=13; 

y_pos:=4; 

teclado; 

cliente A .diente:=aHa; 

END; 

GOTOXY(13,6); 

READ(respuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN 
GOTOXY(13,6); 

HRITE(’ ’>! 

sw:=’ 3’; 

x_pos:=13; 

y_pos:=6; 

teclado; 

cliente A .direccion:=alfa; 

GOTOXY(13,8); 

READ(respuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN 
GOTOXY(13,8); 

HRITE(’ 
sw;=’3’; 
x_pos:=13; 
y_pos:=8; 
teclado; 

cliente A .ciudad:=alta; 
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6GT0XY(13,10); 

READ(respuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN 
GOTQXY(13,10); 

HRITE(* ’); 

sm:=’1'; 

x_pos:=13; 

y_pos:=10; 

teclado; 

eliente A .telefona:=pequeno; 

GOTOXY(13,12); 

READ(respuesta); 

IF respuesta=CHR*(27) 

THEN BEGIN 
GOTOXY(13,12); 

WRITE <’ ’); 

sw:=’3’; 

x_pos:=13; 

y_pos:=12; 

teclado; 

diente A .prefijo:=alfa; 

END; 

SEEK(diente,j); 

PUT(cliente); 

END 

ELSE BEGIN 
GOTOXY(2,20); 

WRITELN(’NO EXISTE ESTE REGISTRO,’, 
'PULSE <RETURN>’); 

READLN; 

END; 

END; 

PROCEDURE borra; 

BEGIN 

borradojantalla; 

60T0XY(0,20); 

HRITEI’NUMERO DEL REGISTRO: ’); 
sn:=’l’; 
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x_pos:=18; 
y_pos:=20; 
teclado; 

inicio:=pequeno+l; 

j:=pequeno+l; 

lista; 

IF NOT fin 
THEN BEGIN 
mascara; 
visualizacion; 

GOTOXY(0,20); 

NRITEC ¿QUIERE BORRARLO?(S/N)’); 

READ(respuesta); 

IF respuesta IN[’S’,’s’] 

THEN BEGIN 
diente\tipo:=’C’; 

SEEK(eli ente,j); 

PUT(el i ente); 

END; 

END 

ELSE BEGIN 
GOTOXY(0,20); 

WRITELN(’NO EXISTE ESTE RE6ISTR0,’, 

'PULSE <RETURN>’)¡ 

READLN; 

END; 

END; * 

PROCEDURE lectura 
BEGIN 

GOTOXY(0,20); 

WRITE('NUMERO DEL PRIMER REGISTRO: ’); 

x_pos:=32¡ 

y_pos:=20; 

sh:=’ I’; 

teclado; 

inicio:=pequeno+l; 

GOTOXY(O,20); 

NRITEC NUMERO DEL ULTIMO REGISTRO: ’, 

’); 

x jos: =32; 
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y_pos:=20; 
sw:=’1’; 
teclado; 
alt:=pequeno+l; 

IF alt>actual-l THEN alt:=actual-l; 
lista; 

IF NOT fin 
THEN REPEflT 
borrado_pantalla; 
mascara; 
visualizacion; 

GOTOXY <0,20); 
lista; 

WRITE(’<ESPACI0> PARA CONTINUAR,’, 

’<ESC> PARA ACABAR’); 

READ(respuesta); 

UNTIL (respuesta=CHR$(27)) 

OR (inicio>alt+l) 

OR (fin); 

END; 

PROCEDURE carga; 

BEGIN 

borrado jantalla; 

WRITELNf’LA CARGA PARTE CON EL NUMERO’,actual-1); 
IF actual>2 
THEN BEGIN 

SEEK (di ente, PREDI actual)) ; 

GET(cliente); 

WRITELNI’EL REGISTRO ANTERIOR’, 

'ESCRITO ES EL SIGUIENTE’) 

mascara; 

visualizacion; 

WRITELN; 

GOTOXY(0,20); 

WRITE(’PULSE <RETURN> PARA CONTINUAR’); 

END; 

REPEAT 

borrado_pantalla; 

GOTOXY(0,20); 


WRITELN( 1 PARA TERMINAR RESPONDA "zzzz"’. 

’A LA SOLICITUD DEL NOMBRE DEL CLIENTE’); 

lascara; 
sw:=’3’; 
x_pos:=13; 
y_pos:=4; 
teclado; 

nominativo:=alfa; 

IF norainativoO’zzzz’ 

THEN BEGIN 
IF actual>ultimo 
THEN BEGIN 

WRITE(’NO PUEDO CONTINUARLE HA SUPERADO’, 
’LA DIMENSION MAXIMA.PULSE<RETURN>’); 
READLN; 

EXIT(carga); 

END; 

calculo; 

búsqueda; 

IF NOT fin 
THEN BEGIN 

WRITE(’ESTE CLIENTE YA EXISTE, NO PUEDO’, 
'INCLUIRLO. PULSE <RETURN>’); 

READLN; 

EXIT(carga)¡ 

END; 

WITH cliente* 

DO BEGIN 

cliente:=nofliinativo; 
x_pos:=13; 
y_pos:=6 
teclado; 

direccion:=alfa; 
y jos: =8; 
teclado; 
ciudad: =al-f a; 
sw:=’2’; 
y_pos:=10; 
teclado; 

telefono:agrande; 
sw;=’3’; 
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y_pos:=12; 

teclado; 

prefijo:=alfa; 

tipo: 3 ’ ’! 

SEEK(indice,hash); 

GET(índice) 
colision:=indice* 
indice'*': =actual; 

SEEK(indice,hash); 

PUT(indice); 

SEEK(cliente,actual); 
PUT <cli ente); 
actual:=succ(actual); 
primero:=actual; 
naxiRto:=ultifflo; 

SEEK(el i ente,1); 

PUT(CLIENTE); 

END; (DE LA NITH CLIENTE*) 
END; ÍSI CLIENTE) 

UNTIL nominativo=’zzzz’ 

END; 

BEGIN 

RESET (cliente,'cliente.dat’); 
SEEK(cliente,1) ; 

GET(eliente); 
actual:=d iente*. primero; 
ultimo:=diente*.máximo; 

REPEAT 

menú; 

CASE que_quiere OF 

’1’: carga; 

’2’: lectura; 

’4’: modificación; 

’5’: borrado; 

END; 

UNTIL que_quiere=’9’; 

CLOSE(eliente,LDCK); 

END. 



ACCESO ALEftTOR I O 
COMPACTACION 


PRQ6RAM ran_compactacion; 

TYPE 

di=REC0RD 

CASE BOOLEAN OF 

TRUE:(cliente:STRINGE31]; 
dirección:STRINGE33); 
ciudad:STRINGC153; 
telefono:INTEGERC81; 
prefi jo:STRINGC4D; 
tipo:CHAR); 

FALSE:(primero:integer; 
maximo:integer); 

END; 

VAR 

viejos, el i ente: FILE OF di; 
x,y,z,actual,ultimo:INTEGER; 


BEGIN 

RESET(viejos,’diente.vie’); 
RESETIdiente, 'diente, dat’); 

SEEK(eliente,1); 

GET(eliente); 
ultimo:=d i ente*, máximo; 
actual:=viejos*.primero; 

GET(viejos); 
y: =2 
z:=2; 

REPEAT 

N1TH viejos* 

DO BEGIN 
IF tipo=’C’ 

THEN WRITELN(diente:15,’ANULADO’); 
ELSE BEGIN 
WRITELNÍcliente:15); 
cliente A :=viejos; 
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SEEK(eli ente,z); 

PUT(cliente); 

2 :=z+l; 

END; 

GET(viejos); 
y:=y+l; 

IF z-l>ultino 
THEN BE6IN 

WRITELN(’HAY ’,z,' REGISTROS ACTIVOS,’, 
’EN UN FICHERO QUE LOS PREVEE’, 
ultimo,’!’); 

WRITELN(’NO PUEDO SEGUIR.’); 

NRITELNCPULSE <RETURN>’); 

READLN; 

EXIT(program); 

END; 

END; (DE LA WITH CLIENTE^); 

UNTIL y>=actual; 

SEEK(el i ente,1); 

GET(cliente); 
diente*.priaero:=z; 

SEEK(cliente,1); 

PUT(cliente); 

CLOSE(viejos); 

CLOSE(el i ente); 

END. 
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BIBLIOTECA BASICA INFORMATICA 


INDICE GENERAL 

1 Dentro y fuera del ordenador 

Todo lo que debemos saber para poder comprender 
en qué consisten y cómo funcionan los ordenadores. 

2 Diccionario de términos informáticos 

Una perfecta guía en ese «maremagnum» de palabras y 
frases ininteligibles que se usan en Informática. 

3 Cómo elegir un ordenador... que se ajuste a nuestras 
necesidades 

Las características y detalles en los que deberemos 
centrar nuestra atención a la hora de elegir un 
ordenador. 

4 Cuidados del ordenador... cosas que debemos hacer o 
evitar 

Esos consejos que le evitarán problemas con su 
equipo, permitiéndole obtener el máximo provecho. 

5 ¡Y llegó el BASIC! (I) 

Un claro y sencillo acercamiento a los principios de 
este popular lenguaje. 

6 Dimensión MSX 

El primer BASIC estándar que ha conseguido difundirse 
de verdad no es sólo un lenguaje; hay bastante más. 

7 ¡Y llegó el BASIC! (II) 

instrucciones y comandos que quedaron por explicar 
en el la parte I. 

8 Introducción al Pascal 

Una buena manera de adentrarse en la programación 
estructurada, ¡la nueva ola de la Informática! 

9 Programando como es debido... algoritmos y otros 
elementos necesarios. 

Ideas para mejorar la funcionalidad y desarrollo de sus 
programas. 
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10 Sistemas operativos y software de base 

Qué son, para qué sirven. Unos desconocidos muy 
importantes. 

11 Sistema operativo CP/M 

Uno de los sistemas operativos para microprocesadores 
de 8 bits de mayor difusión en el mercado. 

12 MS-DOS: el estándar de IBM 

Sistema operativo para el microprocesador de 16 bits 
8088, adoptado por el IBM-PC. 

13 Paquetes de aplicaciones. Software “pret a porter” 
Características y peculiaridades de los más importantes 
paquetes de aplicaciones. 

14 VisiCalc: una buena hoja de cálculo 

Interioridades y manejo de una de las hojas de cálculo 
más usadas. 

15 Dibujar con el ordenador 

Profundizando en una de las facetas útiles y divertidas 
que nos ofrecen los ordenadores. 

16 Tratamiento de textos... para escribir con el ordenador 
Cómo convertir su ordenador en una máquina de 
escribir con memoria y todo tipo de posibilidades. 

17 Diseño de juegos 

Particularidades características de esta aplicación de 
los ordenadores. 

18 LOGO: la tortuga inteligente 

Un lenguaje conocido por su «cursor gráfico», la tortuga, 
y sus aplicaciones pedagógicas al alcance de su mano. 

19 BASIC y tratamiento de imágenes 

Todo lo que en ¡Y llegó el BASIC! no se pudo ver sobre 
las imágenes y gráficos en el BASIC. 

20 Bancos de datos (I) 

Peculiaridades de una de las aplicaciones de los 
ordenadores más interesantes, y que más dinero 
mueven. 

21 Bancos de datos (II) 

Profundizando en sus características. 

22 Paquetes integrados: Lotus 1-2-3 y Simphony 
Estudio de dos de los paquetes integrados (Hoja de 
cálculo + base de datos+ ...) más conocidos. 

23 dBASE II y dBASE III 

Cómo aprovechar las dos versiones más recientes de • 
esta importante base de datos. 

24 Los ordenadores uno a uno 

Un amplio y completo estudio comparativo. 

25 Cálculo numérico en BASIC 

Una aplicación especializada a su disposición. 


26 Multiplan 

Cómo hacer uso de este moderno paquete de 
aplicaciones. 

27 FORTRAN y COBOL 

Dos lenguajes muy especializados y distintos. 

28 FORTH: anatomía de un lenguaje inteligente 
Principales características de un lenguaje moderno, 
flexible y de amplio uso, en la robótica. 

29 Cómo realizar nuestro propio banco de datos 
Conocimientos necesarios para poder fabricar un 
banco de datos a nuestro gusto y medida. 

30 Los paquetes integrados uno a uno 

Todos los que usted puede encontrar en el mercado. 


NOTA: Ingelek, S. A. se reserva el derecho de modificar, sin 
previo aviso, el orden, título o contenido de cualquier volu¬ 
men de la colección. 
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a documentación y el manejo de la infor¬ 
mación obtenida han sido siempre uno de 
los grandes problemas informáticos, pues 
en cuanto el volumen de datos se hacía re¬ 
lativamente importante su proceso manual 
se hacía lento, costoso y poco eficaz. 

La solución se ha materializado en los lla¬ 
mados “bancos de datos”, que, indepen¬ 
dientemente de su medio de almacenamiento, conservan 
un gran número de datos con una coherencia temática y 
en las “bases de datos”, que nos permiten el acceso, re¬ 
cuperación y actualización de los datos. 

En este libro comenzaremos a ver cómo podemos con¬ 
seguir este tipo de funciones mediante completos pro¬ 
gramas, presentados en BASIC y en Pascal, que serán de¬ 
talladamente explicados. 



395 pts. 

(incluido IVA) 





